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Acknowledgements and Background 


INTERLISP (formerly BBN LISP) has evolved from a succession of LISP Systems 
that began with a LISP designed and implemented for the DEC PDP-1 by D. G. 
Bobrow and D. L. Murphy* at Bolt, Beranek and Nevnnan in 1966, and documented by 
D. G. Bobrow. An upwards compatible Version of this LISP was implemented for 
the SDS 940 in 1967, by Bobrow and Murphy. This System contained the seeds for 
many of the capabilities and features of the current System: a compatible 
Compiler and Interpreter,^ uniform error handling, an on-line LISP oriented 
editor, sophisticated debugging facilities, etc. 940 LISP was also the first 
LISP System to demonstrate the feasibility of using Software paging techniques 
and a large virtual memory in conjunction with a list-processing System [Bob2]. 
DWIM, the Do-What-I-Mean error correction facility, was introduced into the 
System in 1968 by W. Teitelman [Tei2], who was also responsible for 
documentation for the 940 LISP System. 


D. G. Bobrow is currently at Xerox Palo Alto Research Center (PARC), D. L. 
Murphy is with Digital Equipment Corp. 

The preliminary version of the Compiler was written by L. P. Deutsch, now 
at Xerox PARC. This was considerably modified and extended by D. L. Murphy 
before producing the final working version. 

The original idea of a LISP oriented structure editor belongs to L. P. 
Deutsch. The editor in its current form was written by W. Teitelman, now 
of Xerox PARC. 

Designed and implemented by W. Teitelman. 
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In 1970, an upwards compatible Version of 940 LISP called BBN LISP 5 was 
designed for the PDP-10 by D. G. Bobrow, D. L. Murphy, A. K. Hartley, and W. 
Teitelman, and implemented by Hartley with assistance frora Murphy. A. K. 
Hartley was also responsible for modifying the 940 LISP Compiler to generate 
code for the PDP-10. BBN-LISP ran under TENEX, a sophisticated time sharing 
System for the PDP-10 designed and implemented by D. G. Bobrow, J. D. 
Burchfiel, D. L. Murphy, T. R. Strollo, and R. S. Tomlinson.[Bobl] With 
Hardware paging and 256K of virtual memory provided by TENEX, it became 
practical to provide extensive and sophisticated Interactive user support 
facilities, such as the programraer's assistant [Tei4], CLISP [TeiS], and a more 
sophisticated DWIM, all of which were designed and developed by W. Teitelman. 
In 1971, the block Compiler was designed and implemented by D. G. Bobrow. The 
BBN-LISP Manual [Tei3] was written by W. Teitelman, with contributions from A. 
K. Hartley and from J. W. Goodwin, who also wrote TRANSOR and the special 
arithmetic functions, as well as a number of other Utility functions. The name 
of the System was changed from BBN-LISP to INTERLISP in 1973, when the 
maintenance and development of the System evolved into a joint effort between 
Bolt Beranek and Newman, and Xerox Palo Alto Research Center. The INTERLISP 
reference manual was written by W. Teitelman, with contributions from A. K. 
Hartley, J. W. Goodwin, and D. G. Bobrow. The cover was designed by 
Alice R. Fikes. 

INTERLISP is currently the LISP system used at Bolt Beranek and Newman, Xerox 
Palo Alto Research Center, Stanford Research Institute Artificial Intelligence 
Center, Information Sciences Institute, and the Dendral Project at Stanford 
University, in addition to being available at Computer Corporation of America 


The design, construction and documentation for BBN LISP was sponsored by 
the Information Processing Techniques Section of the Advanced Research 
Project Agency, as was all of the subsequent work on the system that was 
performed at BBN. Since March 1972, the contributions made to the 
development of the system by W. Teitelman, including the preparation of 
this manual, were sponsored by Xerox Palo Alto Research Center. 
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and Case Institute of Technology. The total user Community now comprises 
approximately one hundred users. 


INTERLISP is a continuously evolving System, both in response to complaints, 
suggestions, and requests of the many users scattered throughout the ARPA 
network, as well as the long ränge goals of the individuals primarily 
responsible for the System, which are currently: 


Per son 

W. Teitelman 
Xerox Palo Alto 
Research Center 
3180 Porter Dr. 

Palo Alto, Calif. 94304 


Responsible for 

User Facilities: i.e., pretty- 
print, editor, break and trace, 
advising, printstructure, DWIM, 
CLISP, programmer's assistant. 


A. K. Hartley 
Bolt Beranek & Newman 
50 Moulton St. 
Cambridge, Mass. 02138 


Basic System: i.e., Interpreter, 
input-output, garbage collector; plus 
all SUBRS, i.e. hand*coded machine language 
functions such as PRINT, CONS, PROG, GO, 
etc.; plus Compiler. 


J. W. Goodwin 
Bolt Beranek & Newman 
50 Moulton St. 
Cambridge, Mass. 02138 


Special Arithmotic Functions: e.g, 
LOG, SIN, SQRT, etc.; plus functions 
for accessing TENEX capabilities 
such as SUBSYS, FILDIR, et al.j 
plus TRANSOR as well as various 
utility functions such as LOADFNS, 
SORT, etc. (as indicated in the text 
of this manual). 


* * * 

The preparation of this manual has involved the efforts of several persons at 
Xerox PARC, whom I specifically want to mention, and to express my appreciation 
for their support through this arduous, and at times seemingly endless task. 
Thank you Suzan (Jerome), Janet (Farness), Peter (Deutsch), Bob (Walker), and 
Larry (Tesler). I couldn't have done it without you. 


Warren Teitelman 
Palo Alto 
December, 1973. 
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SECTION 1 


INTRODUCTION 


This document is a reference manual for INTERLISP, a LISP System currently 
implemented on the DEC PDP-10 under the BBN TENEX time Sharing System.[Bobl] 
INTERLISP'* is designed to provide the user access to the large virtual memory 
allowed by TENEX, with a relatively small penalty in speed (using special 
paging techniques described in [Bob2]). Additional data types have been added, 
including strings, arrays, and hash association tables (hash links) (Sections 7 
and 10). The System includes a compatible Compiler (Section 18) and 
Interpreter. Nachine code can be intermixed with INTERLISP expressions via the 
assemble directive of the Compiler. The Compiler also contains a facility for 
"block Compilation" which allows a group of functions to be compiled as a unit, 
suppressing internal names. Each successive level of computation, from 
interpreted through compiled, to block-compiled provides greater speed at a 
cost of debugging ease. 

INTERLISP has been designed to be a good on-line interactive System. Some of 
the features provided include elaborate debugging facilities with tracing and 
conditional breakpoints (Section 15), and a sophisticated LISP oriented editor 
within the System (Section 9). Utilization of a uniform error Processing 
through user accessible routines (Section 16) has allowed the implementation of 
DWIN, a Do-What-J>Nean facility, which automatically corrects many types of 
errors without losing the context of computation (Section 17). The CLISP 


INTERLISP (formerly BBN LISP) is the most recent incarnation in a 
succession of LISP Systems. See Acknowledgements at front of manual. 
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facility (Section 23) extends the LISP syntax by enabling ALGOL-like infix 
operators such as +, *, /, =, AND, OR, etc., as well as IF-THEN-ELSE 
Statements and FOR-WHILE-DO Statements. CLISP expressions are automatlcally 
converted to equivalent LISP forms when they are first encountered. CLISP also 
includes list construction operators, as well as a LISP oriented pattern match 
Compiler. 

A novel and useful facility of the INTERLISP System is the programmer's 
assistant (Section 22), which monitors and records all user inputs. The user 
can instruct the programmer's assistant to repeat a particular Operation or 
sequence of operations, with possible modifications, or to UNDO the effects of 
specified operations. The goal of the programmer's assistant, DWIM, CLISP, 
etc. is to provide a programming environment which will "cooperate” with the 
user in the development of his programs, and free him to concentrate more fully 
on the conceptual difficulties and Creative aspects of the Problem he is trying 
to solve. 

To aid in Converting to INTERLISP programs written in other LISP dialects, 
e.g., LISP 1.5, Stanford LISP, we have implemented TRANSOR, a Subsystem which 
accepts transformations (or can operate from previously defined 
transformations), and applies these transformations to source programs written 
in another LISP dialect, producing object programs which will run on INTERLISP 
(Appendix 1). In addition, TRANSOR alerts the programmer to problem areas that 
(may) need further attention. TRANSOR was used extensively in Converting from 
940 LISP to BBN-LISP on the PDP-10. A set of transformations is available for 
converting from Stanford LISP and LISP 1.5 to INTERLISP. 

A coraplete format directed list Processing System FLIP [Teil], is available for 
use within INTERLISP. 


Although we have tried to be as clear and complete as possible, this document 
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is not designed to be an introduction to LISP. Therefore, some parts may only 
be clear to people who have had some experience with other LISP Systems. A 
good introduction to LISP has been written by Clark Weissman [Weil]. Although 
not completely accurate with respect to INTERLISP, the differences are small 
enough to be mastered by use of this manual and on-line interaction. Another 
useful introduction is given by Berkeley [Berl] in the Collection of Berkeley 
and Bobrow [Ber2]. * 

Changes to this manual will be issued by replacing sections or pages, and 
reissuing the index and table of contents at periodic intervals. In addition, 
the manual will be maintained on-line, and up to date versions of any or all 
chapters will be available in the form of TENEX files from W. Teitelman at 
Xerox PARC. 
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SECTION 2 


USING INTERLISP 

2.1 Using the INTERLISP Manual - Format, Notation, and Conventions 

The INTERLISP manual is divided into separate more or less independent 
sections. Each section is paginated independently, to facilitate issuing 
Updates of sections. Each section contains an Index to key words, functions, 
and variables contained in that section. In addition, there is a composite 
index for the entire manual, plus several appendices and a table of contents. 

Throughout the manual, terminology and conventions will be offset frora the text 
and typed in italics, frequently at the beginning of a section. For example, 
one such notational Convention is: 

The naives of functions and variables are mitten in lower case and underlined 
when they appear in the text. Heta-LISP notation is used for describing forms. 

Examples: member[x;y] is equivalent to (MEMBER X Y), raeraber[car[x];FOO] is 

equivalent to (MEMBER (CAR X) (QUOTE FOO)). Note that in meta-LISP notation 
lower case variables are evaluated, upper case quoted. 

. notation is used to distinguish between c ons and Hst '. 

e.g., if x*(A B C), (FOO x) is (FOO (A B C)), whereas (FOO . x) 

is (FOO ABC). In other words, x is cadr of (FOO x) but cdr of (FOO . x). 

Similarly, y is caddr of (FOO x y), but cddr of (FOO x . y). Note that this 
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convention is in fact followed by the read program, 
i.e., (FOO . (A B C)) and (FOO ABC) read in a$ equal structures. 

Other important conventions are: 

TRUE in IETERLISP means not EIL. 

The purpose of this is to allow a single function to be used both for the 
computation of some quantity, and as a test for a condition. For example, the 
value of member[x;y] is either NIL, or the tail of £ beginning with x* 
Similarly, the value of or is the value of its first TRUE, i.e., non-NIL, 
expression, and the value of and is either NIL, or the value of its last 
expression. 

Although most lists terminate in NIL, the occasional list that ends in an atom, 
e.g., (AB . C) or worse, a number or string, could cause bizarre effects. 
Accordingly, we have made the following Implementation decision: 

All functions that iterate through a list, e.g., member , length , mapc , etc. 
terminate bg an nlistp check., rather than the conventional null-check, as a 
safety precaution against encountering data types which might cause infinite 
cdr loops, e.g., strings, number», arrays. 

Thus, member[x;(A B . C)]=member[x;(A B)] 
reverse[(A B . C)]=reverse[(A B)] 
append[(A B . C);y]=append[ (A B);y] 

For users with an application requiring extreme efficiency,* we have provided 
fast versions of memb , last , nth . assoc . and length which compile open and 


A NIL check can be executed in only one Instruction, an nlistp requires 
about 12, although both generate only one word of code. 
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terminate on NIL checks, and therefora may cause infinite cdr loops if given 
poorly forraed arguments. However, to help detect these situations, froemb . 
flast , fnth , fassoc , and flength all generate errors when interpreted if their 
argument ends In a non-list other than NIL, e.g. BAD ARGUMENT - FLAST. 


Most Junctions that set System Parameters, e.g., printleael , linelength , radix , 
etc., return as their value the old setting. If given NIL as an argument, they 
return the current value without changing it. 

All SUBRS, i.e., hand coded Junctions, such as read , print , eval , cons , etc., 
have ‘argument names' (U V U) as described under aralist , Seciion 8. However, 
for tutorial purposes, more suggestive names are used in the descriptions of 
these Junctions in the text. 

Most Junctions whose names end in £ are predicates, e.g. numberp . tailp , exprp i 
most Junctions whose names end in g are nlambda’s, i.e., do not require quoting 
their arguments, e.g., setq , dejineq , nlsetq . 

"x is equal to g" means equal[xty] is true, as opposed to "x is eg to g" 
meaning eqjxiyj is true, i.e., x and £ are the same identical LISP pointer. 

When new literal atoms are created (by the read program, pack , or mkatom), they 
are provided with a Junction dejinition cell initialized to NIL (Section 8), a 
value cell initialized to the atom NOBIND (Section 16), and a property list 
initialized to NIL (Section 7). The Junction dejinition cell is accessed by 
the Junctions getd and putd described in Section 8. The value cell oj an atom 
is car oj the atom, and its property list is cdr oj the atom. In particular, 
cer oj NIL and cdr oj NIL are always NIL, and the System will resist attempts 
to change them. 

The term l ist rejers to any structure created by one or more conses, i.e. it 
does not have to end in NIL. For example, (A . B) is a list . The Junction 
listp , Section 6, is used to test Jor lists. Note that not being a list does 
not necessarily imply an atom, e.g., strings and arrays are not lists, nor are 
they atoms. See Section 10. 

Hang system Junctions have extra optional arguments Jor internal use that are 
not described in the writeups. For example, readline is described as a 
Junction oj no arguments, but argl ist[ HEADLINE] returns (LINE LISPXFLG). In 
such cases, the user should just ignore the extra arguments. 


INTERLISP departs fron» LISP 1.5 and other LISP dialects in that car oj a form 
is neuer evaluated. In other words, if car of a form is not an atom with a 
function definition, and not a function object, i.e. a list car of which is 
LAMBDA, NLAMBDA, or FUNARG, an error is generated. apply or apply * (section 8) 
must be used if the name of a function is to be computed as for example, when 
functional arguments are applied. 
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2.2 Using the INTERLISP System on TENEX - An OverView 

Call INTERLISP by typing LISP followed by a carriage return. INTERLISP will 
type an identifying message, the date, and a greeting, followed by a This 
prompt character indicates that the user is "talking to" the top level 
INTERLISP executive, called evalqt , (for historical reasons), just as *©* 
indicates the user is talking to TENEX. evalqt calls lispx which accepts 
inputs in either eval or apply format: if just one expression is typed on a 
line, it is eval uated; if two expressions are typed, the first is apply -ed to 
the second. eval and apply ar* described in section 8. In both cases, the 
value is typed, followed by *■ indicating INTERLISP is ready for another input. 

INTERLISP is normally exited via the function LOGOUT, i.e., the user types 
LOGOUT(). However, typing control-C at any point in the computation returns 
control immediately to TENEX. The user can then continue his program with no 
ill effects with the TENEX CONTINUE command, even if he interrupted it during a 
garbage collection. Or he can reenter his program at evalqt with the TENEX 
REENTER command. The latte r is DEFINITELY not advisable i£ the Control-C was 
typed during a garbage collection . Typing control-D at any point during a 
computation will return control to evalqt . If typed during a garbage 
collection, the garbage collection will first be completed, and then control 
will be returned to INTERLISP’s top level, otherwise, control returns 
immediately. 

When typing to the INTERLISP read program, typing a control-Q will cause 
INTERLISP to print '##' and clear the input buffer, i.e., erase the entire line 
up to the last carriage return. Typing control-A erases the last character 
typed in, echoing a \ and the erased character. Control-A will not back up 
beyond the last carriage return. Control-0 can be used to inrnediately clear 
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the output buffer, and rubout to immediately clear tht input buffer. 2 In 
addition, typing control-U (in most cases) will cause the INTERLISP editor 
(Section 9) to be called on the expression being read, when the read is 
completed. Appendix 3 contains a list of all control characters, and a 
reference to that part of the manual where they are described. 

Since the INTERLISP read program is normally line-buffered to maka possible the 

<> 

action of control-Q, the user must type a carriage return before any 

characters are delivered to the function requesting input, e.g., 

-E T> 4 

T 

However, the read program automatically supplies (and prints) this carriage 
return when a matching right parenthesis is typed, making it unnecessary for 
the user to do so, e.g., 

*-CONS(A B) 

(A . B) 

The INTERLISP read program treats square brackets as 'super-parentheses': a 
right square bracket automatically supplies enough right parentheses to match 
back to the last left square bracket (in the expression being read), or if none 
has appeared, to match the first left parentheses, 
e.g., (A (B (C]=(A (B (C))), 

(A [B (C (0] E)-(A (B (C (0))) E). 


2 ----- 

The action of control-Q takes place when it is read. If the user has 
'typed ahead 1 several inputs, control-Q will only affect at most the last 
line of input. Rubout however will clear the entire input buffer as soon 
as it is typed , i.e., even during a garbage Collection. 


3 

Except following control[T], see Section 14. 

is used throughout the manual to denote carriage-return. 
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X is the universal escape character for read . Thus to input an atom containing 
a syntactic deliraiter, precede it by X« e.g. ABX (C or XX. See Section 14 for 
more details. 

Most of the "basics" of on-lime use of INTERLISP, e.g. defining functions, 

error handling, editing, savitig your work, etc., are illustrated in the 
following brief console Session. Underlined characters were typed by the user. 

1. The user calls INTERLISP frora TENEX, INTERLISP prints a dato, and a 

greeting. The prompt character «- indicates the user is at the top level of 
INTERLISP. 

2. The user defines a function, fact , for computing factorial of n. In 

INTERLISP, functions are defined via DEFINE or DEFINEQ, (Section 8). 
Functions may independently evaluate arguments, or not evaluate them, and 
spread their arguments, or not spread them (Section 4). The function fact 
shown here is an exaraple of an everyday run-of-the-mill function of one 
argument, which is evaluatedl. 

3. The user "looks" at the function definition. Function definitions in 

INTERLISP are stored in a special cell called the function definition cell, 
which is associated with the name of the function (Section 8). This cell 
is accessible via the two functions, getd and putd . (define and defineq use 
putd ). Note that the user typed an input consisting of a single 
expression, i.e. (GETO (QUOTE FACT)), which was therefore interpreted as a 
form for eval . The user could also have typed GETD(FACT). 

4. The user runs his function. Two errors occur and corrections are offered 
by DWIM (Section 17). In each case, the user indicates his approval, OWIM 
makes the correction, i.e. actually changes the definition of fact . and 
then continues the computation. 
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g LISPj 1 


INTERLISP-10 11-17-73 ... 

GOOD EVENING. 

-DEFINEQ( (FACT (LAMBDDA (N) (COND CCEO N 0) NIL) 2 

(T (ITIMES N (FACTT (SUB1 N j 

(FACT) 

- (GETD (QUOTE FACT)) 3 

(LAMBDDA (N) (COND ((EQ N 0) NIL) (T (ITIMES N (FACTT (SUB1 N)))))) 
«- FACT (3) 4 

LAMBDDA [IN FACT] -> LAMBDA ? YESj> 

FACTT [IN FACT] -> FACT 7 YES^" 

NON-NUMERIC ARG 5 

NIL 

IN ITIMES 

(BROKEN) 6 


:BT> 

ITIMES 

COND 

FACT 

COND 

FACT 

COND 

FACT 

**TOP** 


:N^> 

7 

1 


:EDITF(FACT) 

8 

EDIT 


*(R NIL 1) 

9 

*OKj> 

10 

FACT 


:RETURN 1> 

11 

'BREAK' = 1 


6 


-PP FACT.> 

12 


(FACT 

[LAMBDA (N) 

(COND 

((EQ N 0) 

1 ) 

(T (ITIMES N (FACT (SÜB1 N]) 

FACT 13 

«- PRETTYDEF( (FACT) FACT) 14 

FACT.;1 
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5. An error occurs that DWIM cannot handle, and the System goes Into a break. 
At this point, the user can type in expressions to be eval-ed or apply-ed 
exactly as at the top level. The prompt character indicates that the 
user is in a break, i.e. that the context of his computation is available. 
In other words, the System is actually "Mithin" or "belovr" the call to 
itimes in which the error occurred. 

6. The user types in the break command, BT, which calls for a backtrace to be 
printed. In INTERLISP, interpreted and compiled code (see Section 18 for 
discussion of the Compiler) are completely compatible, and ln both cases, 
the name of the function that was called, as well as the names and values 
of its arguments are stored on the stack. The stack can be searched and/or 
modified in various ways (see Section 12). 

Break commands are discussed in Section 15, which also explains how the 
user can "break" a particular function, i.e. specify that the System go 
into a "break" whenever a certain function or functions are called. At 
that point the user can examine the state of the computation. This 
facility is very useful for debugging. 

7. The user asks for the value of the variable n, i.e. the most recent value, 
or binding. The Interpreter will search the stack for the most recent 
binding, and failing to find one, will obtain the top level value from the 
atom's value cell, which is car of the atom (Section 3). If there are no 
bindings, and the value cell contains the atom NOBIND, an unbound atom 
error is generated (Section 16). 

8. The user realizes his error, and calls the editor to fix it. (Note that 
the System is still in the break.) The editor is described at length and in 
detail in Section 9. It is an extremely useful facility of INTERLISP. 
Section 9 begins with a simple introduction designed for the new user. 
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9. The user instructs the editor to replace all NIL's (in this case there is 
only one) by 1. The editor physically changes the expression it is 
operating on so when the user exits from the editor« his function, as it 
is novo being interpreted, has been changed. 

10. The user exits fron the editor and returns to the break. 

11. The user specifies the value to be used by itimes in place of NIL by using 

the break command RETURN. This causes the computation to continue, and 6 is 

ultimately returned as the value of the original input, fact(3). 

12. The user prettyprints (Section 14) fact . i.e. asks it be printed with 

appropriate indentations to indicate structure. Prettyprint also provides 
a comment facility. Note that both the changes made to fact by the editor 
and those made by DWIN are in evidence. 

13. The user writes his function on a file by using prettydef (Section 14), 
creating a TENEX file, FACT.;1, which when loaded into INTERLISP at a later 
date via the function load (Section 14), will cause fact to be defined as 
it currently is. There is also a facility in INTERLISP for saving and 
restoring an entire core inage via the functions sysout and sysin 
(Section 14). 

14. The user logs out, returning control to TENEX. However, he can still 

continue his session by re-entering INTERLISP via the TENEX REENTER or 


CONTINUE command 
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SECTION 3 

DATA TYPES, STORAGE ALLOCATION, AND GARBAGE COLLECTION 1 

INTERLISP operates in an 18-bit address space. This address space is divided 
into 512 word pages with a llmit of 512 pages, or 262,144 words, büt only that 
Portion of address space currently in use actually exists on ahy storage 
medium. INTERLISP itself and all data storage are contained within this 
address space. A pointer to a data element such as a rtuaber, atom, etc., is 
simply the address of the data element in this 18-bit address space. 


3.1 Data Types 

The data types of INTERLISP are lists, atoms, pnames, arrays, large and small 
integers, floating point numbers, string characters and string pointers. 
Compiled code and hash arrays are currently included with arrays. 

In the descriptions of the various data types given below, for each data type, 
first the input syntax and output formet are described, that is, what input 
sequence will cause the INTERLISP read program to construct an element of that 
type, and how the INTERLISP print program will print such an element. Next, 
those functions that construct elements of that data type are given. Note that 
some data types cannot be input, they can only be constructed, e.g. arrays. 
Finally, the format in which an element of that data type is stored ln memory 
is described. 


1 


This section was written by A. K. Hartley. 
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3.1.1 Literal Atoms 


A literal atom is input as any String of non-delimiting characters that cannot 
be interpreted as a nuraber. The syntatic characters that delimit atoms are 
space, end-of-line, 3 line-feed, >'.()"] and [. However, these characters may 
be included in atoms by preceding them with the escape character X. 

Literal atoms are printed by print and prinZ as a sequence of characters with 
X's inserted before all delimiting characters (so that the atom will read back 
in properly). Literal atoms are printed by prinl as a sequence of characters 
without these extra X's. For example, the atom consisting of the five 
characters A, B, C, (, and 0 will be printed as ABCX(D by print and ABC(D by 
prinl . The extra X's are an artifact of the print program; they are not stored 
in the atom's pname. 

Literal atoms can be constructed by pack , mkatom , and oensym (which uses 
mkatom ). 

Literal atoms are unique. In other words. if two literal atoms have the same 
pname, i.e. print the same, they will always be the same identical atom, that 
is, they will always have the same address in memory, or equivalently, they 
will always be eg. 3 Thus if pack or mkatom is given a list of characters 
corresponding to a literal atom that already exists, they return a pointer to 
that atom, and do not make a new atom. Similarly, if the read program is given 
as input of a sequence of characters for which an atom already exists, it 
returns a pointer to that atom. 


2 

An end-of-line character is transmltted by TENEX when it sees a 
carriage-return. 

o 

Note that this is not true for strings, large integers, floating point 
numbers, and lists, i.e. they all can print the same without being eg. 
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A literal atom is a 3 word (36 bits) datum containing: 


WORD l: 


WORD 2: 


WORD 3: 


PROPERTY LIST 
(CDR) 

TOP LEVEL BINDING 
(CAR) 

0 


17 

18 

35 

l 

FUNCTION 

CALLING 

INSTRUCTION 

0 




35 

PNAME 

RESERVED FOR FUNCTIONS 
ON FILES 

0 


17 

18 

35 


FIGURE 3-1 


Car of a literal atom» i.e. the right half of word 1» contains its top level 
binding, initially the atom NOBIND. Cdr of the atom is a pointer to its 
property list, initially NIL. 

Word 2, the function definition cell» is a full 36 bit word, containing an 
Instruction to be executed for calling the function associated with that atom, 
if any. The left half differs for different function types (i.e., EXPR, SUBR, 
or compiled code); the right half is a pointer to the function definition. 4 

The pname cell, the left half of the third word, contains a pointer to the 
pname of the atom. The remaining half word is reserved for an extension of 
INTERLISP to permit storing function deflnitions on files. 


4 This use of a full word saves some time in function calls from compiled 
code in that we do not need to looh up the type of the function definition 
at call time. 
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3.1.2 Pnames 


The pnames of atoms,® pointed to ln the third word of the atom, comprise 
another data type with storage asslgned as 1t is needed. This data type only 
occurs as a component of an atom or a string. It does not appear, for example, 
as an element of a list. 

Pnames have no input syntax or output format as they cannot be directly 
referenced by user programs. 

A pname is a sequence of 7 bit characters packed 5 to a word, beginning at a 
word boundary. The first character of a pname contains its length; thus the 
maximum length of a pname is 126 characters. 


3.1.3_Numerical Atoms 


Numerical atoms, or simply numbers, do not have property lists, value cells, 
functions definition cells, or explicit pnames. There are currently two types 
of numbers in INTERLISP: integers, and floating point numbers. 


Integers 

The input syntax for an integer is an optional sign (+ or -) followed by a 


® All INTERLISP pointers have pnames, since we define a pname simply to be 
how that pointer is printed. However, only literal atoms and strings have 
their pnames explicitly stored. Thus, the use of the terra pname in a 
discussion of data types or storage allocation means pnames of atoms or 
strings, and refers to a sequence of characters stored in a certain part of 
INTERLISP's memory. 
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sequence of digits, followed by an optional Q. 0 If the Q is present, the digits 
are interpreted in octal, otherwise in decimal, e.g. 77Q and 63 both correspond 
to the same integers, and in fact are indistinguishable internally since no 
record ls kept of how integers were created. 

The setting of radlx (Section 14), determines how integers are printed: signed 
or unsigned, octal or decimal. 

Integers are created by pack and mkatom when given a sequence of characters 
observing the above syntax, e.g. (PACK (LIST 1 2 (QUOTE Q))) « 10. Integers 
are also created as a result of arithmetic operations, es described in Section 
13. 

An integer is stored in one 36 bit word; thus its magnitude must be less than 
2t35.^ To avoid having to störe (and hence garbage collect) the values of small 
integers, a few pages of address space, overlapping the INTERLISP machine 
language code, are reserved for their representation. The small number pointer 
itself, minus a constant, is the value of the number. Currently the ränge of 
'small* integers is -1536 thru +1535. The predicate sroallp is used to test 
whether an integer is 'small*. 

While small integers have a unique representation, large integers do not. In 
other words, two large integers may have the same value, but not the same 
address in memory, and therefore not be eg. For this reason the function eqp 
(or equal ) should be used to test equality of large integers. 


and terminated by a delimiting character. Note that some data types are 
self-delimiting, e.g. lists. 


If the sequence of digits used to create the integer is too large, the high 
order portion is discarded. (The handling of overflow as a result of 
arithmetic operations is discussed in Section 13.) 
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Floating Point Numbers 


A floating point number is input as a signed integer, followed by a decimal 
point, followed by another sequence of digits called the fraction, followed by 
an exponent (represented by E followed by a signed integer ). s Both signs are 
optional, and either the fraction following the decimal point, or the integer 
preceding the decimal point may be omitted. One or the other of the decimal 
point or exponent may also be omitted, but at least one of them must be present 
to distinguish a floating point number from an integer. For example, the 
following will be recognized as floating point numbers: 

5. 5.00 5.01 .3 SE2 5.1E2 

5E-3 -5.2E+6 

Floating point numbers are printed using the facilities provided by TENEX. 
INTERLISP calls the floating point number to string conversion routines® using 
the format control specified by the function fltfmt (Section 14). fltfmt is 
initialized to T, or free format. For example, the above floating point 
numbers would be printed free format as: 

5.0 5.0 5.01 .3 500.0 510.0 

.005 -5.2E6 


Floating point numbers are also created by pack and mkatom, and as a result of 
arithmetic operations as described in section 13. 

A floating point number is storedi in one 36 bit word in Standard PDP-10 format. 
The ränge is +2.94E-39 thru +1.69E38 (or 2t-128 thru 2tl27). 


and terminated by a delimiter. 

Additional Information concerning these conversions may be obtained from 
the TENEX JSYS Manual. 
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3.1.4 Llsts 


The Input syntax for a list is a sequenca (at laast one)*® of XNTERLISP data 
e1einents, e.g. literal atoms numbers, other lists, etc. enclosed ln 
parentheses or brackets. A bracket can ba used to taminata several llsts, 
e.g. (A (B (C], as described in Saction Z. 

If thare are tvro or more elenents in a list, the final element can be preceded 
by a . (delimited on both sides), indieating that cdr of the final node in the 
list is to be the element immediately following the ., e.g. (A . B) or 
(ABC .0), otherwise cdr of the last node in a list will be NIL.** Note that 
the input sequence (ABC. NIL) is thus äquivalent to (A B C), and that (A B . 
(C D)) is thus equivalent to (A B C 0). Note however that (A B . C 0) will 
create a list containing the five literal atoms A B . C and 0. 

Lists are constructed by the primitive functlons cons and list . 

Lists are printed by printing a left parenthesis, and then printing the first 
element of the list,* 2 then printing a space, then printing the sacond element, 
etc. until the final node is reached. Lists are considered to terminate when 
cdr of some node is not a list. If cdr of this terminal node is NIL (the utual 
case), car of the terminal node is printed followed by a right parenthesis. If 
cdr of the terminal node is not NIL, car of the terminal node is printed. 


* ö () is read as the atom NIL. 

** Note that in INTERLISP terminology, a list does not have to end in NIL, it 
is simply a structure composed of one or mors conses. 


* 2 The individual elements of a list are printed using prinZ if the list is 
being printed by print or prinZ , and by prinl if the list is being printed 
by prinl . 
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followed by a space, a period, another space, cdr of the terminal node, and 
then the right parenthesis. Note that a list input as (A B C . NIL) will print 
as <A B C), and a list input as (AB. (C 0)) will print as (ABC D). Note 
also that printlevel affects the printing of lists to teletype, and that 
carriage returns may be inserted where dictated by linelength , as described in 
Section 14. 

A list is stored as a chain of list nodes. A list node is stored in one 36 bit 
word, the right half containing car of the list (a pointer to the first element 
of the list), and the left half containing cdr of the list (a pointer to the 
next node of the list). 


3.1.5 Arrays 

An array in INTERLISP is a one dimensional block of contlguous storage of 
arbitrary length. Arrays do not have input syntax; they can only be created by 
the function array . Arrays are printed by both print . prinZ , and prinl . as # 
followed by the address of the array pointer (in octal). Array elements can be 
referenced by the functions eit and eltd , and set by the functions seta and 
setd , as described in Section 10. 

Arrays are partitioned into four sections: a header, a section containing 
unboxed numbers, a section containing INTERLISP pointers, and a section 
containing relocation Information. The last three sections can each be of 
arbitrary length (including 0); the header is two words long and contains the 
length of the other sections as indicated in the diagram below. The unboxed 
number region of an array is used to störe 36 bit quantities that are not 
INTERLISP pointers, and therefore not to be chased from during garbage 
collections, e.g. machine instructions. The relocation informaion is used when 
the array contains the definition of a compiled function, and specifies which 
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locations in the unboxed region of the array must be changed if the array is 
moved during a garbage Collection. 

The format of an array is as follows: 


HEADER WORD 0 
WORD I 

FIRST DATA WORD 



The header contains: 


FIGURE 3-2 


word 0 right 
left 

word 1 right 
left 


length of entire block=ARRAYSIZE+2. 

address of relocation Information relative to word 0 of 
block (> 0 if relocation Information exists, negative 
if array is a hash array, 0 if ordinary array). 

address of pointers relative to word 0 of block. 

used by garbage collector. 



The input syntax for a string is a \ followed by a sequence of any characters 
except " and X, terminated by a ". * and X oay be included in a string by 
preceding them with the escape character X. 
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Strings are printed by print and prin2 vrith initial and final "'s, and X's 
inserted where necessary for it to read back in properly. Strings are printed 
by prinl without the delimiting "'s and extra X's. 

Strings are created by mkstring , substring , and concat . 

Internally a string is stored in two parts; a String pointer and the sequence 
of characters. The INTERLISP pointer to a string is the address of the string 
pointer. The string pointer, in turn, contains the character Position at which 
the string characters begin, and the number of characters. String pointers and 

1 9 

string characters are two separate data types, and several string pointers 
may reference the same characters. This method of storing strings perraits the 
creation of a substring by creating a new string pointer, thus avoiding copying 
of the characters. For more details, see Section 10. 

String characters are 7 bit bytes packed 5 to a word. The format of a string 
pointer is: 


# OF CHARACTERS 

5 * ADDRESS OF STRING + CHARACTER 


POSITION 


0 14 15 35 


FIGURE 3-3 


The maximum length of a string is 32IC (»1024) characters. 


13 

String characters are not directly accessible by user programs. 
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3.2 Storage Allocation and Garbage Collection 


In the following discussion, we will speak of i quantity of memory being 
assigned to a particular data type, meaning that the space is reserved for 
storage of eleinents of that type. Allocation will refer to the process used 
to obtain from the already assigned storage a particular location for storing 
one data element. 

A small amount of storage is assigned to each data type when INTERLISP is 
started; additional storage is assigned only during a garbage collection. 

The page is the smallest unit of memory that may be assigned for use by a 
particular data type. For each page of memory there is a one Word entry in a 
type table. The entry contains the data type residing on the page as well as 
other Information about the page. The type of a pointer is determined by 
examining the appropriate entry in the type table. 

Storage is allocated as is needed by the functions which create new data 
elements, such as cons , pack , mkstring . For example, when a large integer is 
created by iplus , the integer is stored in the next available location in the 
space assigned to integers. If there is no available location, a garbage 
collection is initiated, which may result in more storage being assigned. 

The storage allocation and garbage collection methods differ for the various 
data types. The major distinction is between the types with elements of fixed 
length and the types with elements of arbitrary length. List nodes, atoms, 
large integers, floating point numbers, and string pointers are fixed length; 
all occupy 1 word except atoms which use 3 words. Arrays, pnames, and strings 
(string characters) are variable length. 

Elements of fixed length types are stored so that they do not overlap page 
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boundaries. Thus the pages assigned to a fixed length type need not be 

adjacent. If more space is needed, any empty page will be used. The method of 

allocating storage for these typas employs a free-list of available locations; 

that is, each available location contains a pointer to the next available 

locatlon. A new element is stored at the first location on the free-list, and 

14 

the free-list pointer is updated. 

Elements of variable length data types are allowed to overlap page boundaries. 
Consequently all pages assigned to a particular variable length type must be 
contiguous. Space for a new element is allocated following the last space used 
in the assigned bloch of contiguous storage. 

When INTERLISP is first called, a few pages of memory are assigned to each data 
type. When the allocation routine for a type determines that no more space is 
available in the assigned storage for that type, a garbage Collection is 
initiated. The garbage collector determines what data is currently in use and 
reclaims that which is no longer in use. A garbage collection may also be 
initiated by the user with the fut^ction reclaim (Section 10). 

Data in use (also called active data) is any data that can be 'reached* from 
the currently running program (i.e., variable bindings and functions in 
execution) or frora atoms. To find the active data the garbage collector 
'chases' all pointers, beginning with the contents of the push-down lists and 
the components (i.e., car, cdr, and function definition cell) of all atoms with 
at least one non-trivial component. 


14 The allocation routine for list nodes is more complicated. Each page 
containing list nodes has ei separate free list. First a page is chosen 
(see CONS for details), then the free list for that page is used. Lists 
are the only data type which operate this way. 


3.12 




When a previously unmarked datum is encountered, it is marked, and all pointers 
contained in it are chased. Most data types ara marked using bit tables; that 
is tables containing one bit for each datum. Arrays, howavar, ar# marked using 
a half-word in the array header. 

When the mark and Chase process is completed, unmarked (and therefore unused) 
space is reclaimed. Elements of fixed length types that are no longer active 
are reclaimed by adding their locations to the free-list for that type. This 
free list allocation method permits reclaiming space without moving any data» 
thereby avoiding the time consuming process of updating all pointers to moved 
data. To reclaim unused space in a block of storage assigned to a variable 
length type, the active elements are compacted toward the beginning of the 
storage block, and then a scan of all active data that can contain pointers to 
the moved data is performed to update the pointers. 

Whenever a garbage Collection of any type is initiated, 15 unused space for all 
fixed length types is reclaimed since the additional cost is slight. However, 
space for a variable length type is reclaimed only when that type initiated the 
garbage collection. 

If the amount of storage reclaimed for the type that initiated the garbage 
collection is less than the minimum free storage requirement for that type, the 
garbage collector will assign enough additional storage to satisfy the minimum 
free storage requirement. The minimum free storage requirement for each data 
may be set with the function minfs (Section 10). The garbage collector assigns 
additional storage to fixed length types by finding empty pages, and adding the 
appropriate size elements from each page to the free list. Assigning 


The 'type of a garbage collection' or the 'type that initiated a garbage 
collection' means either the type that ran out of space and called the 
garbage collector, or the argument to reclaim. 
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additional storage to a variable length type involves finding empty pages and 
moving data so that the empty pages are at the end of the block of storage 
assigned to that type. 

In addition to increasing the storage assigned to the type initiating a garbage 
collection, the garbage collector will attempt to minimize garbage collectiöns 
by assigning more storage to other fixed length types according to the 
following algorithm. J@ If the amount of active data of a type has increased 
since the last garbage collection by more than 1/4 of the minfs value for that 
type, storage is increased (if necessary), to attain the minfs value. If 
active data has increased by less than 1/4 of the minfs value, available 
storage is increased to 1/2 minfs . If there has been no increase, no more 
storage is added. For example, if the minfs setting is 2000 words, the number 
of active words has increased Iby 700, and after all unused words have been 
collected there are 1000 words available, 1024 additional words (two pages) 
will be assigned to bring the total to 2024 words available. If the number of 
active words had increased by only 300, and there were 500 words available, 512 
additional words would be assigned. 


3.3 Shared INTERLISP 


The INTERLISP System initially obtained by the user is shared; that is, all 
active users of INTERLISP are actually using the same pages of memory. As a 
user adds to the System, private pages are added to his memory. Similarly, if 
the user changes anything in the original shared INTERLISP, for example, by 
advising a System function, a private copy of the changed page is created. 
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We may experiment with different algorithms. 



In addition to the swapping time saved by having several users accessing the 
same raemory, the sharing mechanism permits a large saving in garbage collection 
time, since we do not have to garbage collect any data in the shared System, 
and thus do not need to Chase from any pointers on shared pages during garbage 
collections. 

This reduction in garbage collection time is possible because the shared System 
usually is not modified very much by the user. If the shared System is changed 
extensively, the savings in time will vanish, because once a page that was 
initially shared is made private, every pointer on it must be assumed active, 
because it may be pointed to by something in the shared System. Since every 
pointer on an initially shared but now private page can also point to private 
data, they must always be chased. 

A user may create his own shared System with the function makesys . If several 
people are using the same System, making the System be shared will result in a 
savings in swapping time. Similarly, if a System is large and seldom modified, 
making it be shared will result in a reduction of garbage collection time, and 
may therefore be worthwhile even if the System is only being used by one user. 

makesy$[file] creates a saved file ln which all pages in this 

System, including private user pages, are made 
read execute, i.e. shared. This System can then 
be run via the TENEX command RUN, or GET and 
START. 

For example, new INTERLISP Systems are brought up by loading the appropriate 
compiled files and then performing makesys[LISP.SAV].* 7 

17 makesys is also advised to set the variable makesysdate to (DATE), i.e. the 
time and date the System was made. 
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SECTION.4 


FUNCTION TYPES AND IMPLICIT PROGN 
In INTERLISP, each function may independently have: 

a. its arguments evaluated or not evaluated; 

b. a fixed number of arguments or an indefinite number of arguments; 

c. be defined by an INTERLISP expression, by built-in machine code, or by 
compiled machine code. 

Hence there are twelve function types (2x2x3). 


Functions defined by INTERLISP expressions are called exprs . Exprs must begin 
with either LAMBDA or NLAMBDA,^ indicating whether the arguments to the 
function are to be evaluated or not evaluated, respectively. Following the 
LAMBDA or NLAMBDA in the expr is the 'argument list', which is either 

(1) a list of literal atoms of NIL (fixed number of arguments); or 

(2) any literal atom other than NIL, (indefinite number of argpments). 

Case (1) corresponds to a function with a fixed number of arguments. Each atom 
in the list is the name of an argument for the function defined by this 


1 


Where unambiguous, the term expr is used to refer to either the function, 
or its definition. 
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expression. When the function is called, its arguraents will be evaluated or 
not evaluated, as dictated by whether the definition begins with LAMBDA or 
NLAMBDA, and then paired with these argument names. 2 This process is called 
"spreading" the arguments, and the function is called a spread-LAMBDA or a 
spread-NLAMBDA. 

Case (2) corresponds to a function with an indefinite number of arguraents. 
Such a function is called a nospread function. If its definition begins with 
NLAMBDA, the atora which constitutes its argument list is bound to the list of 
arguments to the function (unevaluated). For example, if FOO is defined by 
(NLAMBDA X --), when (FOO THIS IS A TEST) is evaluated, X will be bound to 
(THIS IS A TEST). 

If a nospread function begins with a LAMBDA, indicating its arguments are to be 
evaluated, each of its n arguments are evaluated and their values stored on the 
pushdown list. The atom following the LAMBDA is then bound to the number of 
arguments which have been evaluated. For example, if FOO is defined by 
(LAMBDA X --) when (FOO A B C) is evaluated, A, B, and C are evaluated and X is 
bound to 3. A built-in function, arg[atm;m], is available for computing the 
value of the mth argument for the lambda-atom variable atm. arg is described 
in section 8. 


4.2 Compiled Functions 

Functions defined by expressions can be compiled by the INTERLISP Compiler, as 


Note that the function itself can evaluate selected arguments by calling 
eval . In fact, since the function type can specify only that all arguments 
are to be evaluated or none are to be evaluated, if it is desirable to 
write a function which only evaluates some of its arguments, e.g. setq , the 
function is defined as an nlambda, i.e. no arguments are evaluated in the 
process of calling the function, and then included in the definition itself 
are the appropriate calls to eval . 
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described in section 18, "The Compiler and Assembler". Functions may also be 
written directly in machine code using the ASSEMBLE directive of the Compiler. 
Functions created by the Compiler , whether from S-expressions or ASSEMBLE 
directives, are referred to as compiled functions. 


4.3 Function Type 


The function fntyp returns the function type of its argument. The value of 
fntyp is one of the following 12 types: 


EXPR 

CEXPR 

SUBR 

FEXPR 

CFEXPR 

FSUBR 

EXPR* 

CEXPR* 

SUBR* 

FEXPR* 

CFEXPR* 

FSUBR* 


The types in the first column are all defined by expressions. The types in the 
second column are compiled versions of the types in the first column, as 
indicated by the prefix C. In the third column are the parallel types for 
built-in subroutines. Functions of types in the first two rows have a fixed 
number of arguments, i.e., are spread functions. Functions in the third and 
fourth rows have an indefinite number of arguments, as indicated by the 
suffix *. The prefix F indicates no evaluation of arguments. Thus, for 
example, a CFEXPR* is a compiled form of a nospread-NLAMBDA. 


A Standard feature of the INTERLISP System is that no error occurs if a spread 
function is called with too many or too-fern arguments. If a function is called 
with too many arguments, the extra arguments are eualuated but ignored. If a 
function is called with too few arguments, the unsupplied ones will be 
deliuered as MIL. In fact, the function itself cannot distinguish between 
being giuen MIL as an argument, and not being giuen that argument, e.g., 
(FOO) and (FOO NIL) are exactly the same for spread functions. 
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4.4 Progn 


progn is a function of an arbitrary number of arguments. progn evaluates the 
arguments in order and returns the value of the last, i.e., it is an extension 
of the function prog2 of LISP 1.5. Both cond and lambda/nlambda expressions 
have been generalized to permit 'implicit progns' as described below. 


4.5 Implicit Progn 


The conditional expression has been generalized so that each clause may contain 
n forms (n > 1) which are interpreted as follows: 


(COND 

(PI Eil E12 E13) 

(P2 E21 E22) [1] 

(P3) 

(P4 E41)) 


will be taken as equivalent to (in LISP 1.5): 


(COND 

(PI (PROGN Eli E12 E13)) 

(P2 (PROGN E21 E22)) 

(P3 P3) [2] 

(P4 E41) 

(T NIL)) 


Note however that P3 is evaluated only once in [1], while it is evaluated a 
second time if the expression is written as in [2]. Thus a clause in a cond 
with only a predicate and no following expression causes the value of the 
predicate itself, if non-NIL, to be returned. Note also that NIL is returned 
if all the predicates have value NIL, i.e., the cond 'falls off the end'. No 
error is generated. 


LAMBDA and NLAMBDA expressions also allow implicit progn 's; thus for example: 



(LAMBDA (VI V2) (Fl VI) (FZ VZ) NIL) 


is interpreted as: 

(LAMBDA (VI VZ) (PR06N (Fl VI) (F2 VZ) NIL)) 

The value of the last expression following LAMBDA (or NLAMBDA) is returned as 
the value of the entire expression. In this example. the function would always 
return NIL. 
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SECTION 5 


PRIMITIVE FUNCTIONS AND PREDICATES 

5.1 Primitive Functions 


car[x] 


cdr[x] 


car gives the first element of a list x, or the 
left element of a dotted pair x. For literal 
atom, value is top level binding (value) of the 
atom. For all other nonlists, e.g. strings, 
arrays, and numbers, the value is undefined, i.e., 
1t is the right 18 bits of x- 

cdr gives the rest of a list (all but the first 
element). This is also the right member of a 
dotted pair. If x is a literal atom, cdr[x] gives 
the property list of x. Property lists are 
usually NIL unless modified by the user. The 
value of cdr is undefined for other nonlists, i.e. 
it is the left 18 bits of x. 


caar[x] * car[car[x]] 
cadrtx] » car[cdr[x]] 
cddddr[x] « 
cdr[cdr[cdr[cdr[x]]]] 


All 30 combinations of nested cars 
and cdrs up to 4 deep are included 
in the System. All are compiled 
open by the Compiler. 


cons[x;y] 


cons constructs a dotted pair of x and y. If y is 
a list, x becomes the first element of that list. 
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To minimize drum accesses tho following algorithm 
is used for finding a page on which to put tho 
constructed INTERLISP word. 


cons[x;y] is placed 

1) on the page with y if y is a list and there is room; 
otherwise 

2) on the page with x if x is a list and there is room; 
otherwise 

3) on the same page as the last cons if there is room; 
otherwise 

4) on any page with a specified minimum of storage, presently 16 LISP 
words. 

conscount[] value is the number of cons es since this INTERLISP 

was started up. 

rplacd[x;y] Places the pointer y in the decrement, i.e. cdr , 

of the cell pointed to by x. Thus it physically 
changes the internal list structure of x, as 
opposed to cons which creates a new list element. 
The only way to get a circular list is by using 
rplacd to place a pointer to the beginning of a 
list in a spot at the end of the list. 

The value of rplacd is x. An attempt to rplacd 
NIL will cause an error, ATTEMPT TO RPLAC NIL, 
(except for rplacd[NIL;NIL]). For x a literal 
atom, rplacd[x;y] will make y be the property list 
of x. For all other non-lists, rplacd should be 
used with care: it will simply störe y in the left 
16 bits of x. 
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rplaca[x;y] 


sirailar to rplacd . but replaces the address 


pointer of x, i.e., car, with £. The value of 
rplaca is x. An attempt to rplaca NIL will cause 
an error, ATTEMPT TO RPLAC NIL, (except for 
rplaca[NIL;NIL]). For x a literal atom, 
rplaca[x;y] will make y be the top level value for 
x. For all other non-lists, rplaca should be used 
with care: it will simply störe y in the right 18 
bits of x. 

Convention « Naming a function by prefixing an existing function name with £ 
usually indicates that the new function is a fast Version of the 
old, i.e., one which has the same definition but compiles open and 
runs without any 'safety' error checks. 


frplacd[x;y] 


frplaca[x;y] 


Has the same definition as rplacd but compiles 
open as one Instruction. Note that no checks are 
made on x, so that a compiled frplacd can clobber 
NIL, producing stränge and wondrous effects. 

Similar to frplacd . 


quote[x] 


kwote[x] 


This is a function that prevents its arguments 
from being evaluated. Its value is x itself, e.g. 
(QUOTE F00) is F00. 1 

(LIST (QUOTE QUOTE) x), 

if x=A, and y=B, then 

(kWOTE (CONS x y))» (QUOTE (A . B)). 


1 Since giving quote more than one argument, e.g. (QUOTE EXPR (CONS X Y)), is 
almost always a parentheses error, and one that would otherwise go 

undetected, quote itself generates an error in this case, 

PARENTHESIS ERROR. 
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The conditional function of INTERLISP, cond , takes 
an indefinite number of arguments Cj,c 2 , ... c^., 
called clauses. Each clause is a list (e 14 ... 
e^) of n > 1 items, where the first element is 
the predicate, and the rest of the elements the 
consequents. The Operation of cond can be 
paraphrased as 1F e^ THEN e^j ... e n ^ 
ELSEIF e 12 THEN e z2 ... e n2 ELSEIF e 13 ... 

The clauses are considered in sequence as follows: 
the first expression e^ of the clause is 
evaluated and its value is classified as false 
(equal to NIL) or true (not equal to NIL). If the 
value of e^ is true . the expressions e 2i ... e nJ - 
that follow in clause ^ are evaluated in 
sequence, and the value of the conditional is the 
value of e nl , the last expression in the clause. 
In pärticular, if n*i, i.e., if there is only one 
expression in the clause c A , the value of the 
conditional is the value of e^. (which is 
evaluated only once). 

If e^ is false, then the remainder of clause c^ 
is ignored, and the next clause £ i+1 is 
considered. If no e^ is true for any clause, the 
value of the conditional expression is NIL. 

selects a form or sequence of forms based on the 
value of its first argument x. Each is a list 
of the form (s A ejj e 2i ... e Jli ) where s^ is the 
selection key. The Operation of selectq can be 
paraphrased as: 



IF x*=Sj THEN e^ ... e k1 
ELSEIF x-s 2 THEN ... ELSE z. 

If is an atom, the value of x is tested to see 
if it is e§ to s^ (not evaluated). If so, the 
expressions e^ ... e^ are evaluated in sequence, 
and the value of the selectq is the value of the 
last expression evaluated, i.e. e^. 

If s^ is a list, the value of x is compared with 
each element (not evaluated) of s^, and if x is eg 
to any one of them, then e^ to e ki are evaluated 
in turn as above. 

If Xj is not selected in one of the two ways 
described, Xj+i is tested, etc., until all the x' s 
have been tested. If none is selected, the value 
of the selectq is the value of z. z must be 
present. 

An example of the form of a selectq is: 

[SELECTQ (CAR X) 

(Q (PRINT F00) 

(FIE X)) 

((AEIO U) 

(VOWEL X)) 

(COND 
((NULL X) 

NIL) 

(T (QUOTE STOP] 

which has two cases, Q and (A E I 0 U) and a 
default condition which is a cond . 

selectq compiles open, and is therefore very fast; 
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however, it will not work if the value of x is a 
Hst. a large integer, or floating point number, 
since selectq uses eg for all comparisons. 

progl[Xj ;x z ;... evaluates its arguments in order, that is, first 

Xj, then x 2 » 8tc * and returns the value of its 
first argument Xj, e.g. (PR0G1 X (SETQ X Y)) sets 
x to 2 , and returns x's original value. 

progntx^^gj^;• • • ^3 progn evaluates each of its arguments in order, 

and returns the value of its last argument as its 
value. progn is used to specify more than one 
computation where the syntax allows only one, e.g. 
(SELECTQ ... (PROGN ...)) allows evaluation of 
several expressions as the default condition for a 
selectq . 

progCargs;e^;e z ;... ;e n 3 This function allows the user to write an ALGOL- 

like program containing INTERLISP expressions 
(forms) to be executed. The first argument, args , 
is a list of local variables (must be NIL if no 
variables are used). Each atom in args is treated 
as the name of a local variable and bound to NIL. 
args can also contain lists of the form 
(atom form). In this case, atom is the name of 
the variable and is bound to the value of form . 
The evaluation takes place before any of the 
biridings are performed, e.g., 
(PftOG ((X Y) (Y X)) ...) will bind x to the value 
of y and 2 to the (original) value of x* 
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The rest of the prog is a sequence of non-atomic 
Statements (forms) and atomic Symbols used as 
labels for go. The forms are evaluated 
sequentially; the labels serve only as markers. 
The two special functions go and return alter this 
flow of control as described below. The value of 
the prog is usually speclfied by the function 
return . If no return is executed, i.e., if the 
prog "falls off the end," the value of the prog is 
undefined, i.e. garbage. 

0 o[x] go is the function used to cause a transfer in a 

prog . (GO L) will cause the program to continue 
at the label L. A go can be used at any level in 
a Prog . If the label is not found, go will search 
higher progs mithin the same function, e.g. 
(PROG — A — (PROG — (GO A))). If the label is 
not found in the function in which the prog 
appears, an error is generated, UNDEFINEO OR 
ILLEGAL GO. 

return[x] A return Is the normal exlt for a prog . Its 

argument Is evaluated and Is the value of the prog 
in which 1 t appears. 

If a go or return is executed in an interpreted function which is not a prog , 
the go or return will Ae executed in the last interpreted prog entered if anu. 
otherwise cause an error. 

gjo or return inside of a compiled function that is not a pro g is not allowed, 
and will cause an error at compile time. 

As a corollary, go or return in a functional argument, e.g. to mapc . will not 
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work compiled. Also, since nlsetq 's and ersetq *s compile as separate 
functions, a flo or return cannot be used Inside of a compiled nlsetq or ersetq 
if the corresponding prog is outslde, i.e. above, the nlsetq or ersetq . 

set[x;y] Thi« function sets x to jr. Its value is jr. If £ 

is not a literal atom, causes an error, 
ARG NOT ATOM - SET. If x .is NIL, causes an error, 
ATTEMPT TO SET NIL. Note that set is a normal 
lambda-spread function, i.e., its arguments are 
evaluated before it is called. Thus, if the value 
of x is c, and the value of y is b, then set[x;y] 
would result in c having value b, and b being 
returned as the value of set . 

setqCx;y] An nlambda Version of set: the first argument is 

not evaluated, the second is Thus if the value 
of X is C and the value of Y is B, (SETQ X Y) 
would result in X (not C) being set to B, and B 
being returned. If x is not a literal atom, an 
error is generated, ARG NOT ATOM - SET. If x is 
NIL, the error ATTEMPT TO SET NIL is generated. 

setqq[x;y] Like setq except that neither argument is 

evaluated, e.g. (SETQQ X (A B C)) sets x to 
(A B C). 


Since setq is an nlambda, neither argument is evaluated during the calling 
process. However, setq itself calls eval on its second argument. Note 
that as a result, typing (SETQ var form) and SETQ(var form) to lispx is 
äquivalent: ln both cases var is not evaluated, and form is. 
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rpaq[x;y] 


like setq . except always works on top level 

binding of x, i.e. on tha value call. rpaq 

derlves its nama fron rplaca guote, since lt is 

essentially an nlambda Version of rplaca . e.g. 
(RPAQ F00 form) is äquivalent to 

(RPLACA (QUOTE F00) form). 

rpaqq[x;y] like setqq for top level bindings. 

rpaq and rpaqq are used by prettydef (Section 14). Both rpaq and rpaqq 

generate errors if x is not atomic. Both are affected by the value of dfnflg 

(Section 8). If dfnflg = ALLPROP (and the value of x is other than NOBINO). 
instead of setting x, the corresponding value is stored on the property list of 
x under the property VALUE. 

Resetvar and Resetform 

resetvar[var;new-value;from] The effect of resetvar is the same as 

(PR06 ((var new-value)) (RETURN form)), except 
that resetvar is designed to work on GLOBAL 
variables, i.e. variables that must be reset, not 
rebound (see section 18). resetvar resets the 
variable (using frplaca ), and then restores its 
value after evaluating form . The evaluation of 
form is errorset protected so that the value is 

a 

restored even if an error occurs. resetvar also 
adds the old value of var to a global list, so 


In this case, after restoring the value, resetvar propagates the error 
backwards by calling error! . 
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that if the user types Control-D (or Control-C 
followed by REENTER) while form is being 
evaluated, the variable will be restored by the 
top level INTERLISP executive. The value of 
resetvar is the value returned by form , resetvar 
compiles open. 

For example, the editor ealls lispx to execute editor history 
commands by performing (RESETVAR LISPXHISTORY EDITHISTORY (LISPX —)), thereby 
making lispx work on edithistory instead of lispxhistory . 

The behavior of many System functions is affected by calling certain functions, 
as opposed to resetting variables, e.g. printlevel , linelength . input . output . 
radix . gcgag . etc. The function resetform enables a program to treat these 
functions much like variables, and temporarily change their "setting". 

resetformCformt;form2] nlambda, nospread. formt is evaluated, then form2 

is evaluated, then formt is 'restored', e.g. 
(RESETFORM (RADIX 8) (F00)) will evaluate (FOO) 
while radix is 8, and then restore the original 
setting of radix . 

formt must return as its value its "previous 
setting* so that its effects can be undone by 
applying car of formt to this value. 

resetforro is errorset protected like resetvar . and 
also records its Information on a global list so 
that after control-D (or control-C REENTER), formt 
is properly restored. 
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Th« value of r«setform is th« value raturned by 
fonn2 . resetform compiles open. 


5.2 Predicates and Logical Connectives 


atom[x] is T if x is an atom; NIL otherwis«. 

litatomCx] is T if x is a literal atom, i.e., an atom and not 

a number, NIL otherwis«. 

numberp[x] is x if x is a numb«r, NIL otherwis«. 

Convention« Functions that end in £ ore usually predicates, i.e. they test for 
some condition. 

stringp[x] 

arrayp[x] 

listp[x] 

Note thdt arrays and Strings are not atoms, Aut are also not lists, i.e. both 
atom and listp will return NIL wben given an array or a string. 


is x if x is a string, NIL otherwis«.* 

is x if x is an array, NIL otherwis«. 

is x if x is a list-structure, i.e., one created 
by one or more conses ; NIL otherwis«. 


nlistp[x] 


not[listp[x]] 


eq[x;y] The value of eg is T, if x and y are pointars to 


For other string functions, see Section 10. 
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neq[x;y] 

null[x] 

not[x] 

eqpCxjy] 

equal[x;y] 

and[Xj ;x z ;... 


5 For other 


the same structure in memory, and NIL otherwise. 
eg is compiled open by the Compiler as a 36 bit 
compare of pointers. Its value is not guaranteed 
T for equal nurabers which are not small integers. 
See eqp . 

The value of nea is T, if x is not eg[ to and 
NIL otherwise. 


eq[x;NIL] 


same as null , that is eq[x;NIL]. 

The value of eg£ is T if x and jr are eg, i.e. 
pointers to the same structure in memory, or if x 
and x are numbers and are equal. Its value is NIL 
otherwise.^ 

The value of this function is T if x and £ print 
identically; the value of equal is NIL otherwise. 
Note that x and 2 do not have to be eg. 

Takes an indefinite number of arguments (including 
0). If all of its arguments have non-null value, 
its value is the value of its last argument, 
otherwise NIL. E.g. and[x;member[x;y]] will have 
as its value either NIL or a tail of and[]=T. 
Evaluation stops at the first argument whose value 
is NIL. 


number functions, see Section 13. 
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or[Xj ;Xg;... jx^ Takes an indefinite number of arguments (including 

0). Its value is that of the first argument whose 
value is not NIL, otherwise NIL if all arguments 
have value NIL. E.g. or[x;numberp[y]] has its 
value x, or NIL. or[]*NIL. Evaluation stops at 
the first argument whose value is not NIL. 

\ 

every[everyx;everyfn 1;everyfn2] Is T if the result of applying everyfnl 

to each element in everyx is true, otherwise NIL. 
E.g., every[(X Y Z); ATOM]*T. 

every operates by Computing 

everyfnl[car[everyx]]. 0 If this yields NIL, every 
immediately returns NIL. Otherwise, every computes 
everyfn2[everyx], or cdr[everyx] if everyfn2 =NIL, 
and uses this as the 'new* everyx , and the process 
continues, e.g. every[x;ATOM;CDDR] is true if 
every other element of x is atomic. 

every compiles open. 

some[somex;somefnl;somefn2] value is the tail of somex beginning with the 

first element that satisfies somefnl , i.e., for 
which somefnl applied to that element is true. 
Value is NIL if no such element exists. 
E.g., some[x;(LAMBDA (Z) (EQUAL Z Y))] is 

equivalent to member[y;x]. some operates 


— * •> «* m w mumm m «•**■» a» ~ 

Actually, everyfnl[car[everyx];everyx] is coraputed, so for example everyfnl 
can look at the next element on everyx if necessary. 
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analagously to every . At each stage, 

somcifnl[car[somex];somex] is computed, and if this 
is not NIL, somex is returnad as tha value of 
some . Otherwise, somefn2[somex] is computed, or 
cdr[somex] if somefn2 *NIL, and used for tha next 
somex . 

some compiles open. 

notany[somex;somefnl,somefn2] same as not[some[somex;somefn 1 ;somefn2]] 

notevery[ everyx; everyfn 1;everyfn2 ] not[ everyf everyx; everyfni; everyfn2 ] ] 

memb[x;y] Determines if x is a member of the list g, i.e., 

if there is an element of y eg to x. If so, its 
value is the tail of the list g starting with that 
element. If not, its value is NIL. 

fmemb[x;y] Fast Version of memb that compiles open as a five 

Instruction loop, terminating on a NULL check. 
Interpreted, fmemb gives an error, 
BAD ARGUMENT - FMEMB, if g ends in a non-list 
other than NIL. 

member[x;y] Identical to memb except that it uses equal 

instead of eq to check membership of x in g. 

The reason for the existence of both memb and member is that eg; compiles as one 
instruction but equal requires o function call, and is therefore considerably 
more expensiue. Whereuer possible, the user should write (and use) functions 
that use e£ instead of equal . 
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tailp[x;y] 


x is 


assoc[x;y] 


fassoc[x;y] 


sassoc[x;y] 


7 If x is 


Is x, if x is a list and a tail of y, i.e., 

to sone number of cdrs > 0 7 of y, NIL 
otherwise. 

y is a list of lists (usually dottad pairs). The 
value of assoc is tha first sublist of y whose car 
is §3 to x. If such a list is not found, the 
value is NIL. Exaraple: 

assoc[B;((A . 1) (B . 2) (C . 3))] « (B . 2). 

Fast Version of assoc that corapiles open as a 6 
Instruction loop, terminating on a NULL check.. 
Interpreted, fassoc gives an error if y ands in a 
non-list other than NIL, BAD ARGUMENT - FASSOC. 

Sana as assoc but usas equal instaad of aq. 


SM. to some number of cdrs > i of y, we say x is a proper tail. 
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SECTION 6 


LIST MANIPULATION AND CONCATENATION 


listCx i ;x 2 ;... 5^3 laabda-nospread function. Its value is a list of 

the valuas of its arguments. 

j . 

appendtXj sx 2 ;... {Xjj] Copies the top level of the list Xj and appands 

( 

this to a copy of top levol list x 2 appondad to 
... appended to x n » a.g. 

append[(A B) (C D E) (F G)] = (A B C D E F G). 

Nota that only the first n-1 lists ara copied. 
However n»l is treated specially; i.e. append[x] 
can be used to copy the top level of a single 
list.* 

The following exanples illustrate the traatmant of 
non-lists. 

append[(A B C');D] »(ABC .0) 
append[A;(B CD)]» (B C D) 
append[(A B C . D);(E F G)] * (A B C E F G) 
append[(A B C . D)] » (A B C . D) 


To copy a list to all lavels, use copy . 
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nconc[Xj;x 2 ;•••;*„] Returns same value as append but actually modifies 

the list structure of x^ ... x n .j. 

nconcl[lst;x] Performs nconc[lst;list[x]]. The cons will be on 

the same page as Ist . 

tconc[ptr;x] tconc is useful for building a list by adding 

elements one at a time at the end, i.e. its role 
is similar to that of nconcl . However, unlike 
nconcl , tconc does not have to search to the end 
of the list each time it is called. It does this 
by keeping a pointer to the end of the list being 
assembled, and updating this pointer after each 
call. The savings can be considerable for long 
lists. The cost is the extra word required for 
storing both the list being assembled, and the end 
of the list. £tr is that word: car[ptr] is the 
list being assembled, cdr[ptr] is last [car[ptr]]. 
The value of tconc is jrtr, with the appropriate 
modiflcations to car and cdr. Example: 

-(RPTQ 5 (SETQ FOO TCONC F00 RPTN))) 

((5432 1 ) 1 ) 

tconc can be initialized in two ways. If ptr is 
NIL, tconc will make up a ptr . In this case, the 
program must set some variable to the value of the 
first call to tconc . After that, it is 
unnecessary to reset ptr since tconc physically 
changes it. Thus: 

-(SET FOO (TCONC NIL 1)) 

(d)l) 

-(RPTQ 4 (TCONC FOO RPTN)) 

((1432 1 ) 1 ) 
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If £tr is initially (NIL), tha value of tconc is 
tha sama as for ptr eNIL. but tconc changes ptr . 
a.g. 

-(SETQ F00 (CONS)) 

(NIL) 

-(RPTQ 5 (TCONC FOO RPTN)) 

((5432 1 ) 1 ) 

Tha latter method allows tha program to 
initialize, and than call tconc without having to 
perform setq on its value. 


lconc[ptr;x] Where tconc is used to add elements at tha and of 

a list, lconc is used for building a list by 
adding lists at tha and, i.e. it is similar to 
nconc instead of nconcl , a.g. 


-(SETQ FOO (CONS)) 

(NIL) 

-(LCONC FOO (LIST 12)) 

((1 2 ) 2 ) 

-(LCONC FOO (LIST 345)) 
((1234 5) 5) 

-(LCONC FOO NIL) 

((1234 5) 5) 

Note that 

-(TCONC) FOO NIL) 

((12345 NIL) NIL) 

-(TCONC FOO (LIST 345)) 
((12345 NIL (3 4 5)) (3 4 5)) 


lconc uses tha sama pointer conventions as tconc 
for eliminating searching to tha and of tha list, 
so that tha sama pointer can be given to tconc and 
lconc interchangeably. 


attach[x;y] Value is equal to cons[x;y], but attaches x to tha 

front of jr by doing an rplaca and rplacd . i.e. 
tha value of attach is eg to y, vrhich it 
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remove[x;l] 


Convention» 


dremove[x; 


copy[x] 


reverse[l] 


dreverse[l] 


To copy 


physically changes. £ must ba a list, or an error 
is generatad, ILLEGAL ARG. 


Removas all occurrances of x fron list 1, giving a 
copy of 1 with all alements equal to x removed. 


Naming a Junction by prefixing an existing function with d 
frequent ly indicates the new function is a destructive Version of 
the old one , i.e. it does not make any new structure Aut 
cannibalizes its argment(s). 


Similar to remova . but usas eg instead of equal , 
and actually modifias the list 1 when removing x, 
and thus does not use any additional storage. 
Nor« efficient than remove. 


Makos a copy of the list x. The value of copy is 
the copied list. All levels of x are copied,^ 
down to non-lists, so that if x contains arrays 
and strings, the copy of x will contain the same 
arrays and strings, not copies. Copy is recursive 
in the car direction only, so that very long lists 
can be copied. 


Reverses (and copies) the top level of a list, 
e.g. reverse[(A B (C D))] - ((C 0) B A). If x is 
not a list, value is x* 

Value is same as that of reverse, but dreverse 


just the top level of x, do append[x]. 
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subst[x;y;z] 


dsubst[x;y;z] 


lsubst[x;y;z] 


esubst[x;y;z;flg] 


destroys the original list 1 and thus does not use 
any additional storage. Hora afficient than 
reverse . 

Value is tha result of substituting the S- 
expression x for all occurrences of the S- 
expression % in the S-expression z. Substitution 
occurs whenever y is equal to car of some 
subexpression of z, or when y is both atoraic and 
not NIL and eg to cdr of some subexpression of z. 
For example: 

subst[A;B;(C B (X . B))] - (C A (X . A)) 
subst[A;(B C);((B C) 0 B C)] « (A 0 B C), 
not (AD . A). 

The value of subst is a copy of z with the 
appropriata changes. Furthermore, if x is a list. 
it is copied at each Substitution. 

Similar to subst . but uses eg and does not copy z, 
but changes the list structure z itself. Like 
subst . dsubst substitutes with a copy of x* Nora 
afficient than subst . 

Like subst except x is substituted as a segment, 
e.g. lsubst[(A B)jY;(X Y Z)] is (X A B Z). Note 
that if x is NIL, produces a copy of z With all 
X's deleted. 

Similar to dsubst . but first checks to see if y. 
actually appears in z. If not, calls errorf where 
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sublis[alst;expr;flg] 


subpair[old;new;expr;flg] 


To remember the order 


flgsT means print a message of the form x ? This 
function is actually an Implementation of the 
editor's R command (see Section 0), so that y can 
use &, or alt-modes as with the R command. 

alst is a list of pairs: 

((Uj . Vj) (u £ . v 2 ) ... (u n . v n )> with each u A 
atoiaic. 

The value of sublis[alst;expr;flg] is the result 
of substituting each y for the corresponding u in 

O 

exp r. Example: 

sublis[((A . X) (C . Y));(A B C D)] = (X B Y D) 

New structure is created only if needed, or if 
flg=T. e.g. if flgsNIL and there are no 
substitutions, value is eg to expr . 

Similar to sublis . except that elements of new are 
substituted for corresponding atoms of old in 
expr . Example: 

subpair[(A C);(X Y);(A B C 0)] « (X B Y D) 

As with sublis . new structure is created only if 
needed, or if flg«T t e.g. if flg«N!L and there are 
no substitutions, the value is eg to expr . 

If old ends ln an atom other than NIL, the rest of 
the elements on new are substituted for that atom. 
For example, if old*(A B . C) and new»(U V X Y Z), 


on alst, thinh of it as old to new, i.e. u^ -> v^. 
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U is substituted for A, V for B, and (X Y Z) for 
C. Similarly, if old itself is an aton (other than 
NIL), the entire list new is substituted for it. 

Note that subst , dsubst , Isubst , and esu bst all Substitute copies of the 
appropriate expression, whereas subpair and sublis substitute the identical 
structure (unless fla*T). 

last[x] Value is a pointer to the last node in the list x, 

e.g. if x*(A B C) then last[x] * (C). If 
x*(A B . C) last[x] * (B . C). Value is NIL if x 
is not a list. 


flast[x] Fast Version of last that compiles open as a 5 

Instruction loop, terminating on a null-check. 
Interpreted, generates an error, BAD ARGUMENT - 
FLAST, if x ends in other than NIL. 

nleft[l;n;tail] Tail is a tail of 1 or NIL. The value of nleft is 

the tail of 1 that contains n more elements than 
tail, 4 e.g., if x»(A B C D E), nlefttx;Z]«(D E), 
nleft[x;l;cddr[x]]»(B C D E). Thus nleft can be 
used to work backwards through a list. Value is 
NIL if 1 does not contain n more elements than 
tail . 

lastn[ 1 ;n] Value is cons[x;y] where y is the last n elements 

of 1, and x is the initial segment, e.g. 
lastn[(A B C D E);2]=((A B C) D E) 


^ -- - • - - - 

If tail is not NIL, but not a tail of 1, the result is the same as if tail 

were NIL, i.e. nleft operates by scanning 1 looking for tail, not by 
computing the lengths of 1 and tail. “ - 
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lastn[(A B);2]*(NIL A B). 


Value is NIL if 1 ls not a list containing at 
least n elements. 

nth[x;n] Value is the tail of x beginning with the nth 

e 1 einen t, e.g. if ns2, value is cdr[x], if n*3, 
cddr[x], etc. If n*l, value is x, if n*0, for 
consistency. value is cons[NIL;x]. If x has fewer 
than n elements, value is NIL, e.g. 
nthr.(A B);3]»NIL, as is nth[(A . B);3] Note that 
nth[(A . B);2]=B. 

fnth[x;n] Fast Version of nth that compiles open as a 3 

Instruction loop, terminating on a null-check. 
Interpreted, generates an error, BAD ARGUMENT - 
FNTH, if x ends in other than NIL. 

length[x] Value is the length of the list x where length is 

defined as the number of cdrs required to reach a 
non-list, e.g. 

length[(A B C)] = 3 
length[(A B C . 0)] * 3 
length[A] = 0 

flength[x] Fast Version of length that compiles open as a 4 

Instruction loop, terminating on a null-check. 
Interpreted, generates an error, BAD ARGUMENT - 
FLENGTH, if x ends in other than NIL. 

count[x] Value is the number of list words in the structure 
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ldiff[x;y;z] 


Note that t Ae 
which case the 


intersection[x; 


union[x;y] 


x. Thus, count is like a length that goes to all 
levels. Count of a non-list is 0. 

2 must be a tail of x, i.e. eg to the result of 
applying some nurober of cdrs to x. Idiff[x;y] 
gives a list of all elements in x up to i.e., 

the list diff erence of x and 2- Thus 
ldiff[x;member[FOO;x]] gives all elements in x up 
to the first F00. 

value of Idiff is always new list structure unless y*NIL, in 
value is x it seif. 

If z is not NIL the value of Idiff is effectively 
nconc[z;ldiff[x;y]], i.e. the list difference is 
added at the end of z. 

If y is not a tail of x, generates an error, 
LDIFF: NOT A TAIL. Idiff terminates on a 
null»check. 

y] Value is a list whose elements are members of both 

lists x and y. Note that intersection[x;x] gives 
a list of all members of x without any 
duplications. 

Value is a (new) list consisting of all elements 
included on either of the two original lists. It 
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is mors efficient to make x be the shorter list.® 

sort[data;comparefn] 0 data is a list of itens to be sorted using 

comparefn . a predicate function of two arguments 
which can compare any two items on data and return 
T if the first one belongs before the second. If 
comparefn is NIL, alphorder is used; thus 
sortCdata] will alphabetize a list. If comparefn 
is T, car's of iteos are given to alphorder ; thus 
sort[a-list;T] will alphabetize by the car of «ach 
item. sort[ x;ILESSP] will sort a list of 
integers. 

The value of sort is the sorted list. The sort is 
destructive and uses no extra storage. The value 
returned is eg to data but elements have been 
switched around. Interrupting with control D, E, 
or B may cause loss of data, but control H may be 
used at any time, and sort will break at a clean 
state fron which t or control characters are safe. 
The algorithm has been optimized with respect to 
the number of compares. 

ilotet if comparefn[atb] * comparefn[bta], then the ordering of a and b mag or 
may not be preserved. ~ 


The value of union is y with all elements of x not in y cons ed on the front 
of it. Therefore, if an element appears twice in y, it will appear twice 
in union[x;y]. Also, since union[(A);(A A)] ■ (A A), while 
union[(A A);(A)] ■ (A), union is non-commutative. 


ft 

Sort , merge , and alphorder wore written by J.W. Goodwin. 
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For example, if (F00 . FIE) appears before (FOO . FUM) in x, sort[x;T] may or 
may not reverse the order of these two elements. Of course, the user can 
always specify a more precise coroparefn . 

merge[a;b;comparefn] a and b are lists which have previously been 

sorted using sort and comparefn . Value is a 
destructive merging of the two lists. It does not 
matter which list is longer. After merging both a 
and b are equal to the merged list. (In fact, 
cdr[a) is §3 to cdr[b]) merge may be aborted after 
control H. 

alphorder[a;b] A predicate function of two arguments, for 

alphabetizing. Returns T if its arguments are in 
order, i.e. if b does not belong before a. 
Numbers come before literal atoms, and are ordered 
by magnitude (using greaterp ). Literal atoms and 
strings are ordered by comparing the (ASCII) 
character codes in their pnames. Thus 
alphorder[23;123] is T, whereas 
alphorder[A23;A123] is NIL, because the character 
code for the digit 2 is greater than the code for 
1 . 


Atoms and strings are ordered before all other 
data types. If neither a nor b are atoms or 
strings, the value of alphorder is T, i.e. in 
order. 


Notet alphorder does no unpacks . chcons . c onses or nthchars . It is several 
times faster for alphabetizing than anything that can be written using 
these other functions. 
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cplists[x;y] 


compares x and 2 an< * Prints their differences, 
i.e. cpllsts is assentially a SRCCON for list 
structures. 
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SECTION 7 


PROPERTY LISTS AND HASH LINKS 


7.1 Property Lists 


Property lists are entities associated with literal atoms, and are stored on 
edr oj the atom. Property lists are conventionally lists of the form (property 
value property value ... property value) although the user can störe anything 
he toishes in cdr of a literal atom. However, the functions which manipulate 
property lists observe this Convention by cycling down the property lists two 
cdrs at a time. Most of these functions also generate an error, ARG NOT ATON, 
if given an argument which is not a literal atom, i.e., they cannot be used 
directly on lists. 

The term 'property name' pr ’property‘ is used for the property indicators 
appearing in the odd positions, and the term 'property value’ or 'value of a 
property' or simply 'value' for the values appearing in the even positions. 
Sometimes the phrase ’to störe on the property --' is used, meaning to place 
the indicated information on the property list under the property name —. 

Properties are usually atoms, although no checks are made to eliminate use of 
non-atoms in an odd Position. However, the property list searching functions 
all use eg . 


Property List Functions 

put[atm;prop;vaI] puts on the property list of atm . the property 

prop with value val. val replaces any previous 
value for the property prop on this property list. 
Generates an error, ARG NOT ATOM, if atm is not a 
literal atom. Value is val. 


addprop[atm;prop;new;flg] adds the value new to the list which is the value 

of property prop on property list of atm . If flg 
is T, new is consed onto the front of value of 
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prop , otherwise it is nconc ed on the and ( nconcl ). 
If atm does not have a property prop , the effect 
is the sarae as put[atm;prop;list[new]], for 
example, if addprop[FOO;PROP;FIE] is followed by 
addprop[ F00; PROP; FUM ], getp[FOO;PROP] will 

be (FIE FUM). The value of addprop is the (new) 
property value. If atm is not a literal atom, 
generates an error, ARG NOT ATOM. 

remprop[atm;prop] removes all occurrences of the property prop (and 

its value) from the property list of atm . Value 
is prop if any were found, otherwise NIL. If atm 
is not a literal atom, generates an error, 
ARG NOT ATOM. 

changeprop[x;propl;prop2] Changes name of property propl to prop2 on 

property list of x, (but does not affect the value 
of the property). Value is x, unless propl is not 
found, in which case, the value is NIL. If x is 
not a literal atom, generates an error, 
ARG NOT ATOM. 

get[x;y] Gets the item after the atom y on list x* If £ is 

not on the list x, value is NIL. For example, 
get[A B C D);B]»C. 

I 

Notei since get terminates on a non-list, get[atonuangthing] is NIL. 

Therefore, to search a property list, getp should 
be used, or get applied to cdr[atom]. 
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getp[atm;prop] gets the property value for prop frora the property 

list of atro. Th« valu« of getp is NIL if atm is 
not a literal atom, or prop if not found. 

Note» the value of getp mag also be NIL, if there is an occurrence of prop but 
the corresponding propertu value is NIL. 

Note: Sine« getp searches a list two items at a 
time, the saroe object can be used as both a 
property naroe and a property value, e.g., if the 
property list of atm is (PR0P1 A PR0P2 B A C), 
then getp[atm;A] * C. Note however that 
get[cdr[atm];A] « PR0P2. 

getlis[x;props] searches the property list of x, and returns the 

property list as of the first property on props 
that it finds e.g., if the property list of x is 
(PR0P1 A PROPS B A C), 
getlis[x;(PR0P2 PROPS)]*(PR0P3 B A C) 

Value is NIL if no eleroent on props is found. x 
can also be a list itself, in which case it is 
searched as above. 

deflist[ 1 ;prop] is used to put values under the saroe property name 

on the property lists of several atoros. 1 is a 
list of two>element lists. The first eleroent of 
each is a literal atom, and the second eleroent is 
the property value for the property prop . The 
value of deflist is NIL. 

Note» Hang atoms in the sgstem alreadg haue propertu lists, with properties 
used bg the Compiler, the break package, DUIM, etc. Be careful not to 
clobber such sgstem properties. The value of sgsprops gives the complete 
list of the propertg names used bg the sgstem. 
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7.2 Nash Links 


The description of the hash link facility in INTEftLISP is included in the 
chapter on property lists because of the similarities in the ways the two 
features are used. A property list provides a way of associating Information 
with a particular atom. A hash link is an association between any INTERLISP 
pointer (atoms, numbers, arrays, Strings, lists, et al) called the hash-item, 
and any other INTERLISP pointer called the hash-value. Property lists are 
stored in cdr of the atom. Hash links are implemented by computing an address, 
called the hash-address, in a specified array, called the hash-array, and 
storing the hash-value and the hash-item into the cell with that address. The 
contents of that cell, i.e. the hash-value and hash-item, is then called the 
hash-link.'* 

Since the hash-array is obviously much smaller than the total number of 
possible hash-items, 2 the hash-address computed from item may already contain a 
hash-link. If this link is fron item . 3 the new hash-value simply replaces the 
old hash-value. Otherwise, another hash-address (in the same hash-array) must 
be computed, etc, until an empty cell is found, 4 or a cell containing a 
hash-link from item . 

When a hash link for item is being retrieved, the hash-address is computed 


The term hash link (unhyphenated) refers to the process of associating 
Information this way, or the 'association' as an abstract concept. 


2 which is the total number of INTERLISP pointers, i.e., 256K. 


eg is used for comparing item with the hash-item in the cell. 


After a certain number of iterations (the exact algorithm is complicated), 
the hash-array is considered to be full, and the array is either enlarged, 
or an error is generated, as described below in the discussion of overflow. 
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using the sarae algorithm as that employed for making the hash Unk. If the 
corresponding cell is empty, there is no hash link for item . If it contains a 
hash-link from item . the hash-value is returned. Otherwise, another 
hash-address must be computed, and so forth. 6 

Note that more than one hash link can be associated with a given hash-item by 
using more than one hash-array. 

Hash Link Functions 


In the description of the functions below, the argument array has one of three 
forms: (1) NIL, in which case the hash-array provided by the System, 
syshasharray , is used;® (2) a hash-array created by the function harray , or 
created from an ordinary array using clrhash as described below; or (3) a list 
car of which is a hash-array. The latter form is used for specifying what is 
to be done on overflow, as described below. 

harraytn] creates a hash-array of size n, äquivalent to 

clrhash[array[n ] ]. 

clrhash[array] sets all elements of array to 0 and sets left half 

of first word of header to -1. Value is array . 

puthash[item;val;array] puts into array a hash-link from item to val. 


For reasonable Operation, the hash array should be ten to twenty percent 
larger than the maximum number of hash links to be made to it. 


syshasharray is not used by the System, it is provided solely for the 
user's benefit. It is initially 512 words large, and is automatically 
enlarged by 50% whenever it is •full*. See page 7.7. 
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Replaces previous link from same item, if any. If 
val=NIL any old link is removed, (hence a 
hash-value of NIL is not allowed). Value is val. 


gethash[item;array] finds hash-link from item in array . and returns 

the hash-value. Value is NIL if no link exists. 
gethash compiles open. 


rehash[oldar;newar] hashes all items and values in oldar into newar . 

The two arrays do not have to be (and usually 
aren't) the same size. Value is newar . 


maphash[array;maphfn] maphfn is a function of two arguments. For each 

hash-link in array , maphfn will be applied to the 
hash-value and hash-item, e.g. 
maphash[a;(LAMBOA(X Y) (AND(LISTP Y) (PRINT X)))] 
will print the hash-value for all hash-links from 
lists. The value of maphash is array . 


dmphashCarrayname] Nlambda-nospread that prints on the primary output 

file a load able form which will restore what is in 
the hash-array specified by arrayname , e.g. 
(E (DMPHASH SYSHASHARRAY)) as a prettydef command 
will dump the system hash-array. 


Notei all eg identities except atoms and small integers are lost bu dumping and 
loading because read will create new structure for each item. Thus if 
two lists contain an eg substructure, when theg are dumped and loaded 
back in, the corresponding substructures while evual are no longer eg. 


circlprint and circlmaker (Section 21) provide a way of dumping and 
reloading structures containing eg substructures so that these identities 
are preserved. 
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Hash Overflow 


By using an array arguraent of a special form, the user can provide for 
automatic enlargement of a hash-array when it overflows, i.e., is full and an 
attempt is made to störe a hash link into it. The array argument is either of 
the form (hash-array . n), na positive integer; or (hash-array . f), f a 
floating point number; or (hash-array). In the first case, a new hash-array is 
created with n more cells than the current hash-array. In the second case, the 
new hash array will be f times the size of the current hash-array. The third 
case, (hash-array), is equivalent to (hash-array . 1.5). In each case, the old 
hash-array is rplaca ed into the dotted pair, and the computation continues. 

If a hash-array overflows, and the array argument used was not one of these 
three forms, the error HASH TABLE FULL is generated, which will either cause a 
break or unwind to the last errorset, as per treatment of errors described in 
Section 16. 

The System hash array, syshasharray . is automatically enlarged by 1.5 when it 
is full. 
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SECTION 8 

FUNCTION DEFINITION AND EVALUATION 


General Comments 


A function definition ln INTERLISP is stored in a special cell called the 
function definition cell, which is associated with each literal atom. This 
cell is directly accessible via the two functions putd . which puts a definition 
in the cell, and getd which get s the definition from the cell. In addition, 
the function fntyp returns the function type, i.e., EXPR, EXPR* ... FSUBR* as 
described in Section 4. Exprp , ccodep . and subrp are true if the function is 
an expr, compiled function, or subr respectively; argtype returns 
0, 1, 2, or 3, depending on whether the function is a spread or nospread (i.e., 
its f nt yp ends in *), or evaluate or no-evaluate (i.e., its fntyp begins with F 
or CF); arglist returns the list of arguments; and nargs returns the number of 
arguments. fntyp, exprp , ccodep , subrp , argtype , arglist . and nargs can be 
given either a literal atom, in which case they obtain the function definition 
from the atom's definition cell, or a function definition itself. 

Subrs 

Because subrs, 1 are called in a special way, their definitions are stored 


Basic functions, handcoded in machine language, e.g. cons, car, cond. The 
terms subr includes spread/nospread, eval/noeval functions, i.e. the four 
fntyp »s SUBR, FSUBR, SUBR*, and FSUBR*. 
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differently than those of compiled or interpreted functions. In the right half 
of the definition cell is the address of the first instruction of the subr,, and 
in the left half its argtype : 0, i, 2, or 3. getd of a subr returns a dotted 
pair of argtype and address. Note that this is not the same word as appears in 
the definition cell, but a new cons ; i.e., each getd of a subr performs a cons . 
Similarly, putd of a definition of the form (number . address), where number * 
0, 1, 2, or 3, and address is in the appropriate ränge, Stores the definition 
as a subr, i.e., takes the cons apart and Stores car in the left half of the 
definition cell and cdr in the right half. 

Validity of Definitions 

Although the function definition cell is intended for function definitions, 
putd and getd do not make thorough checks on the validity of definitions that 
"look like" exprs, compiled code, or subrs. Thus if putd is given an array 
pointer, it treats it as compiled code, and simply Stores the array pointer in 
the definition cell, getd will then return the array pointer. Similarly, a 
call to that function will simply transfer to what would normally be the entry 
point for the function, and piroduce random results if the array were not 
compiled function. 

Similarly, if putd is given a dotted pair of the form (number . address) where 
number is 0, 1, 2, or 3, and address falls in the subr ränge, putd assumes it 
is a subr and Stores it away as described earlier. getd would then return cons 
of the left and right half, i.e., a dotted pair equal (but not e£) to the 
expression originally given putd . Similarly, a call to this function would 
transfer to the corresponding address. 

Finally, if putd is given any other list, it simply Stores it away. A call to 
this function would then go through the Interpreter as described in the 
appendix. 
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Note that putd does not actually check to see if the s-expression 1s valid 
definition, i.e., begins with LAMBDA or NLAMBDA. Similarly, exprp is true if a 
definition is a list and not of the form (number . address), number = 
0, 1, 2, or 3 and address a subr address; subrp is true if it is of this form. 
arglist and nargs work correspondingly. 

0 °ly fr»typ and argtype check function definitions further than that described 
above: both argtype and fntyp return NIL when exprp is true but car of the 
definition is not LAMBDA or NLAMBDA. 3 In other words, if the user uses putd to 
put (A B C) in a function definition cell, getd will return this value, the 
editor and prettyprint will both treat it as a definition, exprp will return T, 
ccodep and subrp NIL, arglist B, and nargs 1. 

getdfx] get s the function definition of x. Value is the 

definition. 3 Value is NIL if x is not a literal 
atom, or has no definition. 

fgetd[x] fast Version of getd that compiles open as 

car[vag[addl[loc[x]]]]. Interpreted, generates an 
error, BAD ARGUMENT - FGETD, if x is not a literal 

4 

atom. 


2 ------- 

These functions have different value on LAMBDAs and NLAMBDAs and hence must 
check. The Compiler and interpreter also take different actions for 
LAMBDAs and NLAMBDAs, and therefore generate errors if the definition is 
neither. 


3 


Note that getd of a subr performs a cons . as described on page 8.2. See 
footnote on fgetd below. 


4 

Ea_q td is intended primarily to check whether a function has a definition, 
rather than to obtain the definition. Therefore, for subrs, fgetd returns 
just the address of the function definition, not the dotted pair returned 
by getd , page 8.2, thereby saving the cons. 
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putd[x;y] 

putdq[x;y] 

movd[frora;to 

Notei fntyp , 
either 

fntyp[fn] 


put s the definition ^ int0 2' s function cell. 
Value is £. Generates an error, ILLEGAL ARG - 
PUTD, if x is not a literal atom, or y is a 
string, number, or literal atom other than NIL. 

nlambda Version of putd ; both arguments are 
considered quoted. Value is x. 

copyflg] Moves the definition of from to to, i.e., 

redefines to. If copyflg =T. a copy of the 
definition of from is used. copyflg aT is only 
meaningful for exprs, although movd works for 
compiled functions and subrs as well. The value 
of movd is to. 


subrp , cc odep , exprp , arg type , nargs , and aralist all can be given 
the name of a function, or a definition. 

Value is NIL if fn is not a function definition or 
the name of a defined function. Otherwise fntyp 
returns one of the following as defined in the 
section on function types: 

EXPR CEXPR SUBR 

FEXPR CFEXPR FSUBR 

EXPR* CEXPR* SUBR* 

FEXPR* CFEXPR* FSUBR* 


The prefix F indicates unevaluated arguments, the 
prefix C indicates compiled code; and the suffix * 
indicates an indefinite number of arguments. 
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fntyp returns FUNARG if fjn is a funarg expression. 
See Section 11. 

subrp[fn] is true if and only if fntyp[fn] is either SUBR, 

FSUBR, SUBR«, or FSUBR«, i.e., the third column of 
fntyp's. 

ccodepCfn] is true if and only if fntyp[fn] is either CEXPR, 

CFEXPR, CEXPR«, or CFEXPR«, i.e., second column of 
fntyp's. 

exprp[fn] is true if fntyp[fn] is either EXPR, FEXPR, EXPR«, 

or FEXPR«, i.e., first column of fntyp's. 
However, exprp[fn] is also true if fn is (has) a 
list definition that is not a SUBR, but does not 
begin with either LAMBDA or NLAMBDA. In other 
words, exprp is not quite as selective as fntyp . 

argtype[fn] fn is the name of a function or its definition. 

The value of argtype is the argtype of fn, i.e., 
0, 1, 2, or 3, or NIL if fn is not a function. 
The interpretation of the argtype is: 

0 eval/spread function 

(EXPR, CEXPR, SUBR) 

1 no-eval/spread functions 

(FEXPR, CFEXPR, FSUBR) 

2 eval/nospread functions 

(EXPR*, CEXPR«, SUBR«) 

3 no-eval/nospread functions 

(FEXPR«, CFEXPR«, FSUBR«) 

i.e., argtype corresponds to the rouis of fntyps . 
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nargs[fn] 


value is the number of arguments of fn, or NIL if 
fn is not a function. 6 nargs uses exprp . not 
fntyp . so that nargs[(A (B C) D)]»2. Note that if 
fn is a SUBR or FSUBR, nargs ■ 3, regardless of 
the number of arguments logically needed/used by 
the routine. If fn is a nospread function, 
nargs = 1. 

arglist[fn] value is the 'arguraent list* for fn. Note that 

the 'argument list' is an atom for nospread 
functions. Since NIL is a possible value for 
arglist . an error is generated, 
ARGS NOT AVAILABLE, if fn is not a function. 6 

If fn is a SUBR or FSUBR, the value of arglist is (U V W), if a SUBR* or 
FSUBR*, the value is U. This is merely a ’feature' of arglist . subrs do not 
actually störe the names U, V, or W on the stack. However, if the user breaks 
or traces a SUBR (Section iS), these will be the argument names used when an 
equivalent EXPR definition is constructed. 

define[x] The argument of define is a list. Each element of 

the list is itself a list either of the form (name 
definition) or (name arguments ...). In the 
second case, following 'arguments' is the body of 
the definition. As an example, consider the 


i.e., if exprp . ccodep . and subrp are all NIL. 

If fn is a compiled function, the argument list is constructed, i.e. each 
call to arglist requires making a new list. For interpreted functions, the 
argument list is simply cadr of getd . 
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following two equivalent expressions for defining 
the function null . 

1) (NULL (LAMBDA (X) (EQ X NIL))) 

2) (NULL (X) (EQ X NIL)) 

define will generate an error on encountering an atora where a defining list is 
expected. If dfnflg =NIL, an attempt to redefine a function fn will cause 
define to print the message (fn REDEFINED) and to save the old definition of fn 
using savedef before redefining it. If dfnflg «T. the function is simply 
redefined. If dfnflg =PROP or ALLPROP, the new definition is stored on the 
property list under the property EXPR. (ALLPROP affects the Operation of rpaqq 
and rpaq , section 5). dfnflg is initially NIL. 

d/nflg is reset by load to enable various ways of handllng the defining of 
functions and setting of variables when loading a file. For most applications, 
the user will not reset dfnflg directly himself. 

Note: define will operate correctlu if the function is alreadu defined and 
broken , advised . or broken-in . 

defineqtXjSXjj...;x n ) 


savedef[fn] 


nlambda nospread Version of define . i.e., takes an 
indefinite number of arguments which are not 
evaluated. Each x i must be a list, of the form 
described in define . defineq calls define , so 
dfnflg affects its Operation the same as define . 

Saves the definition of fn on its property list 
under property EXPR, CODE, or SUBR depending on 
its fntyp . Value is the property name used. If 
getdCfn] is non-NIL, but fntyp[fn] is NIL, saves 
on property name LIST. This Situation can arise 
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when a function is redefined which was originally 
deflned with LAMBDA misspelled or omitted. 

If fn is a list, savadef operates on «ach function 
in the list, and its value is a list of the 
individual values. 

unsavedef[fn;prop] ResUores the definition of fn from its property 

list under property prop (see savedef above). 
Value is prop . If nothing saved under prop , and 
fn is defined, returns (prop NOT FOUND), otherwise 
generates an error, NOT A FUNCTION. 

If prop is not given, i.e. NIL, unsavedef looks 
under EXPR, CODE, and SUBR, in that order. The 
value of unsavedef is the property name, or if 
nothing is found and fn is a function, the value 
is (NOTHING FOUND); otherwise generates an error, 
NOT A FUNCTION. 

If dfnflg =NIL. the current definition of fn, if 

any, is saved using savedef . Thus one can use 

/ 

unsavedef to switch back and forth between two 
definitions of the same function, keeping one on 
its property list and the other in the function 
definition cell. 

If fn is a list, unsavedef operates on each 
function of the list, and its value is a list of 
the individual values. 
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eval[x] 7 


e[x] 


applyCfn;args] 


eval evaluates the expression x and returns this 
value i.e. eval provides a way of calling the 
Interpreter. Note that eval is itself a lambda 
type function, so its argument is the first 
evaluated, e.g.. 


«-SET(FOO (AD01 3)) 

(ADDl 3) 

«•(EVAL F00) 

4 

«-EVAL(FOO) or (EVAL (QUOTE F00)) 
(A001 3) 


nlambda nospread Version of eval . Thus it 
eliminates the extra pair of parentheses for the 


list of 

arguments for 

eval. 

i.e.. 

e x 

is 

equivalent 

to 

eval[x]. 

Note 

however 

that 

in 

INTERLISP, 

the 

user can 

type 

just X 

to get 

X 


evaluated. (See Section 3.) 

apply applies the function fn to the arguments 
args . The individual elements of args are not 
evaluated by apply . fn is simply called with args 
as its argument list.^ Thus for the purposes of 
apply . nlambda 's and lambda 's are treated the 
same. However like eval . apply is a lambda 
function so its arguments are evaluated before it 
is called e.g.. 


dval is a subr so that the 'name 1 x does not actually appear on the stack. 


Note that fn may still explicitly evaluate one or more of its arguments 
itself, as in the case of setq . Thus 

(APPLY (QUOTE SETQ) (QUOTE (FOO (AD01 3)))) will set FOO to 4, whereas 
(APPLY (QUOTE SET) (QUOTE (FOO (ADDl 3)))) will set FOO to the expression 
(ADDl 3). 
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-SET(F001 3) 

3 

-SEKFOOZ 4) 

4 

«-(APPLY (QUOTE IPLUS) (LIST FOOl FOOZ] 

7 

Here, fool and foo2 were evaluated when the second 
argument to apply was evaluated. Compare with: 

-SET(F001 (ADD1 Z)) 

(ADD1 2) 

«-SET(F002 (SUB1 5)) 

(SUB1 5) 

«-(APPLY (QUOTE IPLUS) (LIST FOOl F002] 

NON-NUMERIC ARG 
(ADD1 2) 

apply*[fn;arg 1 ;...;arg n ] equivalent to applyCfnjlistCargjj...;arg n ]] For 

example, if fn is the name of a functional 
argument to be applied to x and one can write 
(APPLY* FN X Y), which is equivalent to 
(APPLY FN (LIST X Y)). Note that (FN X Y) 
specifies a call to the function FN itself, and 
will cause an error if FN is not defined. (See 
Section 16.) FN will not be evaluated. 

evala[x;a] Simulates a-list evaluation as in LISP 1.5. x is a 

form, a is a list of dotted pairs of variable name 
and value. a is 'spread' on the stack, and then x 
is evaluated, i.e., any variables appearing free 
in x, that also appears as car of an element of a 
will be given the value in the cdr of that 
element. 

rpt[rptn;rptf] Evaluates the expression rptf rptn times. At any 

point, rptn is the number of evaluations yet to 
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take place. Returns the value of the last 
evaluation. If rptn < 0, rptf is not evaluated, 
and the value of rpt is NIL. 

Note* rpt is a lambda Junction, so both its arguments are evaluated before rpt 
is called. For most applications , the user will probable want to use 
LPH- 

nlambda Version of rpt ; rptn is evaluated, rptf is 
not, e.g. (RPTQ 10 (READ)) will perform ten calls 
to read , rptq compiles open. 

Used to access the individual arguments of a 
lambda nospread function. arg is an nlambda 
function used like set var is the name of the 
atomic argument list to a lambda-nospread 
function, and is not evaluated; m is the number of 
the desired argument, and is evaluated. For 
example, consider the following definition of 
iplus in terms of plus . 

[LAMBDA X 
(PROG <(M 0) 

(N 0)) 

LP (COND 

(<EQ N X) 

(RETURN M))) 

(SETQ N (ADD1 N)) 

[SETQ M (PLUS M (ARG X N))) 

(GO LP] 

The value of arg is undefined for m less than or 
equal to 0 or greater than the value of var. 0 
Lower numbered arguments appear earlier in the 
form, e.g. for (IPLUS A B C), 


rptq[rptn;rptf] 


arg[var;m] 


For lambda nospread functions, the lambda variable is bound to the number 
of arguments actually given to the function. See Section 4. 




arg[X;l]=the value of A, 
arg[X;2]nthe value of B, and 
arg[X;3>the value of C. 


Note that the lambda variable should netter be 
reset. However, individual arguraents can be reset 
using setarg described below. 

setarg[var;ra;x] sets to x the mth arg ument for the lambda nospread 

function whose argument list is var . var is 
considered quoted, m and x are evaluated; e.g. in 
the previous example, (SETARG X (ADD1 N)(MINUS M)) 
would be an example of the correct form for 
setarg . 


8.12 



Index for Section 8 


Page 

Numbers 

a-1ist . 8.10 

ADVISED (property name) ... 8.7 

ALLPROP . 8.7 

APPLY[FN;ARGS] SUBR . 8.9 

APPLY*[FN;ARG1;...;ARGn] SUBR* . 8.10 

ARG[VAR;M] FSUBR . 8.11 

ARGLIST[X] . 8.1,3-4,6 

ARGS NOT AVAILABLE (error message) . 8.6 

ARGTYPE[FN] SUBR . 8.1-5 

argument list ... 8.1 

BAD ARGUMENT - FGETD (error message) . 8.3 

BROKEN (property name) ... 8.7 

BROKEN-IN (property name) .. 8.7 

CCODEPCFN] SUBR . 8.1,3-5 

CEXPR (function type) .. 8.4-5 

CEXPR* (function type) .. 8.4-5 

CFEXPR (function type) . 8.4-5 

CFEXPR* (function type) . 8.4-5 

CODE (property name) . 8.7-8 

DEF INE[ X ] 8.6-7 

DEFINEQ[X] NL* ... 8.7 

DFNFLG (system variable/pararoeter) . 8.7-8 

E[ XEEEE] NL* . 8.9 

EVALtX] SUBR .. 8.9 

EVALA[X;A] SUBR . 8.10 

EXPR (property name) . 8.7-8 

EXPR (function type) . 8.4-6 

EXPR* (function type) . 8.4-5 

EXPRPt FN] SUBR . 8.1,3-6 

FEXPR (function type) . 8.4-5 

FEXPR* (function type) . 8.4-5 

FGETDCX] . 8.3 

FNTYP[X] . 8.1,3-7 

FSUBR (function type) . 8.4-6 

FSUBR* (function type) . 8.4-6 

FUNARG (function type) . 8.5 

function definition and evaluation ... 8.1-12 

function definition cell . 8.1-2 

functional argument ... 8.10 

GETD[X] SUBR . 8.1-3,7 

ILLEGAL ARG - PUTD (error message) . 8.4 

INCORRECT DEFINING FORM (error message) . 8.7 

Interpreter ..... 8.9 

LAMBDA . 8.3,5,8 

LIST (property name) . 8.7 

MOVD[FROM;TO;COPYFLG] . 8.4 

NARGS[X] . 8.1,3-4,6 

NLAMBDA . 8.3,5 

nospread ... 8.1 

NOT A FUNCTION (error message) .... 8.8 

(NOT FOUND) . 8.8 

(NOTHING FOUND) . 8.8 

PROP[ X; Y] ... 8.7 

PUTD[X;YJ SUBR . 8.1-4 

PUTDQ[X;Y] NL . 8.4 

REDEFINED (typed by system) .. 8.7 


INDEX.8.1 




























































Page 

Numbers 


RPT[RPTN;RPTF] .. 8.10-11 

RPTQ[RPTN;RPTF] NL ... 8.11 

SAVEDEF[X] . 8.7-8 

SETARGfVAR;M;X] FSUBR .. 8.12 

spread ..... 8.1 

SUBR (function type) . 8.4-6 

SUBR (property name) . 8.7-8 

SUBR* (function type) . 8.4-6 

SUBRP[FN] SUBR . 8.1,3-5 

subrs .... 8.1 

U (value of ARGLIST) .. 8.6 

(U V W) (value of ARGLIST) . 8.6 

UNSAVEDEF[X;TYP] .. 8.8 


INDEX.8.2 
















SECTION 9 


THE INTERLISP EDITOR 1 

The INTERLISP editor allows rapid, convenient modification of list structures. 
Most often it is used to edit function definitions, (often whlle the function 
itself is running) via the function editf . e.g., EDITF(FOO). However, the 
editor can also be used to edit the value of a variable, via editv, to edit a 
property list, via editp . or to edit an arbitrary expression, via edite. It is 
an important feature which allows good on-line interaction in the INTERLISP 
System. 

This chapter begins with a lengthy introduction intended for the new user. The 
reference portion begins on page 9.15. 

9.1 Introduction 


Let us introduce some of the basic editor commands, and give a flavor for the 
editor's language structure by guiding the reader through a hypothetical 
editing session. Suppose we are editing the following incorrect definitlon of 
append ; 


The editor was written by and is the responsibility of W. Teitelman. 
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CLAMBDA (X) 

Y 

(COND 
((NUL X) 

Z) 

(T (CONS (CAR ]i 

(APPEND (CDR X Y] 


Wo call the editor via the function editf: 


-EDITF(APPEND) 

EDIT 


The editor responds by typing EDIT followed by *, which is the editor's prompt 
character, i.e., it signifies that the editor is ready to accept comraands. 2 


At any given moment, the editor's attention is centered on some substructure of 
the expression being edited. This substructure is called the current 
expression, and it is what the user sees when he gives the editor the command 
P, for print. Initially, the current expression is the top level one, i.e., 
the entire expression being edited. Thus: 


*P 

(LAMBDA (X) Y (COND & &)) 
* 


Note that the editor prints the current expression as though printlevel were 
set to 2, i.e., sublists of subllsts are printed as flt. The command ? will 
print the current expression as though printlevel were 1000. 


*? 

(LAMBDA (X) Y (COND ((NUL X) Z) (T (CONS (CAR) (APPEND (CDR X Y)))))) 


and the command PP will prettyprint the current expression. 


In other words, all lines beginning with * were typed by the user, the rest 
by the editor. 
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A positive integer is interpreted by the editor as a comoand to descend into 
the correspondingly nunbered element of the current expression. Thus: 


*2 

*P 

(X) 


A negative integer has a similar effect, but counting begins from the end of 
the current expression and proceeds backward» i.e., -1 refers to the last 
element in the current expression, -2 the next to the last, etc. For either 
positive integer or negative integer, if there is no such element, an error 
occurs,® the editor types the faulty conxnand followed by a ?, and then another 
*. The current expression is neuer changed when a comand causes an error. 
Thus: 


*P 

(X) 

*2 

2 ? 
*1 
*P 
X 
* 


A phrase of the form 'the current expression is changed ' or 'the current 
expression becomes ’ refers to a shift in the editor's attention , not to a 
modification of the structure being edited. 


When the user changes the current expression by descending into it, the old 
current expression is not lost. Instead, the editor actually operates by 


'Editor errors 1 are not of the flavor described in Section 16, i.e., they 
never cause breaks or even go through the error machinery but are direct 
calls to error! indicating that a command is in some way faulty. What 
happens next depends on the context ln which the command was being 
executed. For example, there are conditional commands which branch on 
errors. In most situations, though, an error will cause the editor to type 
the faulty command followed by a ? and wait for more input. Note that 
typing control-E while a command is being executed aborts the command 
exactly as though it had caused an error. 
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maintaining a chain of expressions leading to the current one. The current 
expression is simply the last link in the chain. Descending adds the indicated 
subexpression onto the end of the chain, thereby making it be the current 
expression. The command 0 is used to ascend the chain; it removes the last 
link of the chain, thereby making the previous link be the current expression. 
Thus: 

*P 

X 

*0 P 
(X) 

*0 -1 P 

(COND (& Z) (T &)) 

* 

Note the use of several command!; on a single line in the previous output. The 
editor operates in a line buffered mode, the same as evalqt . Thus no command 
is actually seen by the editor, or executed, untii the line is terminated, 
either by a carriage return, or a matching right parenthesis. The user can 
thus use control-A and control-Q for line-editing edit commands, the same as he 
does for inputs to evalqt . 

In our editing session, we will make the following corrections to append ; 
delete Y fron» where it appears, add Y to the end of the argument list, 4 change 
NUL to NULL, change Z to Y, add Z after CAR, and insert a right parenthesis 
following CDR X. 


First we will delete Y. By now we have forgotten where we are in the function 
definit Ion, but we want to be at the "top" so we use the command t, which 
ascends through the entire chain of expressions to the top level expression. 


These two operations could be though of as one Operation, i.e., MOVE Y from 
its current Position to a new Position, and in fact there is a MOVE command 
in the editor. However, for the purposes of this introduction, we will 
confine ourselves to the simpler edit commands. 
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which then becomes the current expressIon, i.e., t removes «11 links except the 
first one. 


*♦ P 

(LAMBDA (X) Y (COND & &)) 


Note that lf we are already at the top, t has no effect, i.e., it ls a NOP. 
However, 0 would generate an error. In other words, t means "go to the top," 
while 0 means "ascend one link.” 


The basic structure modification cotnmands in the editor are: 


(n) 


«i ••• e m > 


(“ n e j • •• « m y 


Thus: 

*P 

(LAMBDA (X) Y (COND & &)) 
"(3) 

*<2 (X Y)) 

*P 

(LAMBDA (X Y) (COND & &)) 


n > 1 deletes the corresponding 
element fron the current expression. 

n,n > 1 replaces the nth elenent in the current 
expression with 

64 •«• 0_• 

1 IQ 

n,m > 1 inserts e^ ... e B before the nth elenent 
in the current expression. 


All structure modification done by the editor is destructive, i.e., the editor 
uses rplaca and rplacd to phusically chanye the structure it was given. 


Note that all three of the above cooaands perform their Operation with respect 
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to the nth element frora the front of the current expression; the sign of n is 
used to speclfy whether the Operation is replacement or Insertion. Thus, there 
is no way to specify deletion or replacement of the nth element from the end of 
the current expression, or Insertion before the nth element from the end 
without counting out that element's Position from the front of the list. 
Similarly, because we cannot specify Insertion after a particular element, we 
cannot attach something at the end of the current expression using the above 
commands. Instead, we use the command N (for nconc ). Thus we could have 
performed the above changes instead by: 


*P 

(LAMBDA (X) V (CONO & &)) 
M3) 

*2 (N Y) 

*P 

(X Y) 

M P 

*(LAMBDA (X Y) (COND & &)) 


Now we are ready to change NUL to NULL. Rather than specify the sequence of 
descent commands necessary to reach NUL, and then replace it with NULL, e.g., 3 
21(1 NULL), we will use F, the find command, to find NUL: 


*P 

(LAMBDA (X Y) (COND & &)) 
*F NUL 
*P 

(NUL X) 

*(1 NULL) 

*0 P 

((NULL X) Z) 

* 


Note that F is special in that it corresponds to two inputs. In other words, F 
says to the editor, "treat your next command as an expression to be searched 
for." The search is carried out in printout order in the current expression. 
If the target expression is not found there, F automatically ascends and 
searches those portions of the higher expressions that would appear after (in a 
printout) the current expression. If the search is successful, the new current 
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expression will be the structure where the expression was found,^ and the chain 
will be the same as one resulting fron the appropriate sequence of ascent and 
descent commands. If the search is not successful, an error occurs, and 
neither the current expression nor the chain is changed: 0 

»P 

((NULL X) Z) 

*F COND P 

COND ? 

*P 

»((NULL X) Z) 

N 

Here the search failed to find a cond following the current expression, 
although of course a cond does appear earlier in the structure. THis last 
example illustrates another facet of the error recovery mechanism: to avoid 
further confusion when an error occurs, all commands on the line beyond the one 
which caused the error (and all commands that may have been typed ahead while 
the editor was computing) are forgotten. 7 

We could also have used the R command (for replace) to change NUL to NULL. A 
command of the form (R ej e 2 ) will replace all occurrences of e t in the current 
expression by e 2 . There must be at least one such occurrence or the R command 
will generate an error. Let us use the R command to change all Z'a (even 
though there is only one) in append to Y: 


If the search is for an atom, e.g., F NUL, the current expression will be 
the structure eontaining the atom. 


F is never a NOP, i.e., if successful, the current expression after the 
search will never be the same as the current expression before the search. 
Thus F expr repeated without intervening commands that change the edit 
chain can be used to find successive instances of expr . 


7 

i.e. the input buffer is cleared (and saved) (see clearbuf . Section 14). 
It can be restored, and the type-ahead recovered via the command S6UFS 
(alt-mode BUFS), described in Section 22. 
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*♦ (R Z V) 
*F Z 


Z ? 

«pp 

[LAMBDA (X Y) 

(COND 

((NULL X) 

Y) 

(T (CONS (CAR) 

(APPEND (CDR X Y] 


The next task is to change (CAR) to (CAR X). We could do this by 
(R (CAR) (CAR X)), or by: 


*F CAR 
*(N X) 
*P 

(CAR X) 


The expression we now want to change is the next expression after the current 
expression, i.e., we are currently looking at (CAR X) in (CONS (CAR X) (APPEND 
(CDR X Y))). We could get to the append expression by typing 0 and then 3 or 
-l t or we can use the command NX, which does both operations: 


*P 

(CAR X) 

*NX P 

(APPEND (CDR X Y)) 


Finally, to change (APPEND (CDR X Y)) to (APPEND (CDR X) Y), we could perfonn 
(2 (CDR X) Y), or (2 (CDR X)) and (N Y), or 2 and (3), deleting the Y, and then 
0 (N Y). However, if Y were a complex expression, we would not want to have to 
retype it. Instead, we could use a command which effectively inserts and/or 
removes left and right parentheses. There are six of these command s: 
BI,BO,LI,LO,RI, and RO, for both in, both out, left in, left out, right in, and 
right out. Of course, we will always have the same number of left parentheses 
as right parentheses, because the parentheses are just a notational guide to 
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structure that is provided by our print program. 5 Thus, left in, left out, 
right in, and right out actually do not insert or remove just one parenthesis, 
but this is very suggestive of what actually happens. 

In this case, we would like a right parenthesis to appear following X in (COR X 
Y). Therefore, we use the coramand (RI 2 Z), which means insert a right 
parentheses after the second element in the second elernent (of the current 
expression): 

*P 

(APPEND (CDR X Y)) 

*(RI 2 2) 

*P 

(APPEND (COR X) Y) 

* 

We have now finished our editing, and can exit fron the editor, to test append , 
or we could test it while still inslde of the editor, by using the E comnand: 

*E APPEND((A B) (C 0 E)) 

(A B C 0 E) 

« 

The E comnand causes the next input to be given to evalqt . If there is another 
input following it, as in the above example, the first will be applied ( apply ) 
to the second. Otherwise, the input is evaluated ( eval ). 

We prettyprint append . and leave the editor. 


_ 

Herein lies one of the Principal advantages of a LISP oriented editor over 
a text editor: unbalanced parentheses errors are not possible. 
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*pp 

[LAMBDA (X Y) 

(COND 

((NULL X) 

Y) 

(T (CONS (CAR X) 

(APPEND (CDR X) Y] 

*OK 

APPEND 


9.2 Commands for the New User 


As mentioned earlier, the INTERL.ISP manual is intended primarily as a reference 
tnanual, and the remainder of this chapter is organized and presented 
accordingly. While the commands introduced in the previous scenario constitute 
a complete set, i.e., the user could perform any and all editing operations 
using just those commands, there are many situations in which knowing the right 
command(s) can save the user considerable effort. We include here as part of 
the introduction a list of those commands which are not only frequently 
applicable but also easy to use. They are not presented in any particular 
order, and are all discussed in detail in the reference portion of the chapter. 

UNDO undoes the last modification to the structure 

being edited, e.g., lf the user deletes the wrong 
element, UNDO will restore it. The availability 
of UNDO should give the user confidence to 
experiment with any and all editing commands, no 
matter how complex, because he can always reverse 
the effect of the command. 

BK üke NX, except makes the expression immediately 

before the current expression become current. 

backwards find. Like F, except searches 
backwards, i.e., in inverse print order. 
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\ Restores the current expresslon to the expression 

before the last "big jump", e.g., a find command, 
an t, or another \. For example, if the user 
types F CONO, and then F CAR, \ would take hin 
back to the CONO. Another \ would take hin back to 
the CAR. 

\P like \ except it restores the edit Chain to its 

state as of the last print, either by P, ?, or PP. 
If the edit Chain has not been changed since the 
last print, \P restores it to its state as of the 
printing before that one, i.e., two chains are 
always saved. 

Thus if the user types P followed by 3 2 1 P, \P will take him back to the 
first P, i.e., would be äquivalent to 0 0 0. Another \P would then take him 
back to the second P. Thus the user can use \P to flip back and forth between 
two current expressions. 

ä,-- The search expression given to the F or BF command 

need not be a literal S-expression. Instead, it 
can be a pattern. The symbol & can be used 
anywhere within this pattern to match with any 
single element of a list, and — can be used to 
match with any Segment of a list. Thus, in the 
incorrect definition of append used earlier, 
F (NUL &) could have been used to find (NUL X), 
and F (COR —) or F (COR & &), but not F (COR &), 
to find (COR X Y). 

Note that & and — can be nested arbitrarily deeply in the pattern. For 
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example, if there are many places where the variable X is set, F SETQ may not 
find the desired expression, nor may F (SETQ X &)• It may be necessary to use 
F (SETQ X (LIST --)). However, the usual technique in such a case is to pick 
out a unique atom which occurs prior to the desired expression, and perform two 
F commands. This "homing in* process seems to be more convenient than ultra- 
preclse specification of the pattern. 

$ (alt-mode) $ :Ls equivalent to -- at the character level, e.g. 

VERS will match with VERYLONGATOM, as will SATOM, 
SLONGS, (but not SLONG) and SVSNSMS. $ can be 
nested inside of a pattern, e.g., 

F {SETQ VERS (CONS —)). 

If the search is successful, the editor will print 

= Followed by the atom which matched with the S- 

atom, e.g., 

*F (SETQ VERS &) 

=VERYLONGATOM 

ft 

Frequently the user will want to replace the entire current expression, or 

insert something before it. In order to do this using a command of the form (n 

®1 • ■ • ® m ) or (-n ej ... e n ), the user must be above the current expression. 

In other words, he would have to perform a 0 followed by a command with the 

appropriate number. However, if he has reached the current expression via an F 

command, he may not know what that number is. In this case, the user would 

like a command whose effect would be to modify the edit chain so that the 

current expression became the first element in a new, higher current 

expression. Then he could perform the desired Operation via (1 e. ... e ) or 

l nr 

(-1 ej ... e m ). UP is provided for this purpose. 
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UP after UP operates, the old current expresslon is 

the first element of the new current expresslon. 
Note that if the current expresslon happens to be 
the first element in the next higher expresslon» 
then UP is exactly the same as 0. Otherwise» UP 
modifies the edit chain so that the new current 
expresslon is a tail 9 of the next higher 
expresslon: 

*F APPEND P 
(APPEND (CDR X) Y) 

*UP P 

... (APPEND & Y)) 

*0 P 

(CONS (CAR X) (APPEND & Y)) 

* 

The ... is used by the editor to indicate that the 
current expresslon is a tail of the next higher 
expresslon as opposed to being an element (i.e., a 
member) of the next higher expresslon. Note: if 
the current expresslon is already a tail, UP has 
no effect. 

(B 6j ••• e m ) inserts Oj ... e m before the current expresslon, 

i.e., does an UP and then a -1. 

inserts ej ... e m after the current expresslon, 
i.e., does an UP and then either a (-2 Oj ... e m ) 
or an (N 8j ... e m ), if the current expresslon is 
the last one in the next higher expresslon. 


® Throughout this chapter 'tail' means 'proper tail' (see Section 5). 
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(: öj ... e m ) replaces current expression by ... e m , i.e., 

does an UP and then a (1 Oj ... e m ). 

DELETE deletes current expression; äquivalent to (:). 

Earlier, vre introduced the RI command in the append example. The rest of the 
comroands in this family: BI, B0„ LI, LO, and RO, perform similar functions and 
are useful in certain situations. In addition, the commands MBD and XTR can be 
used to combine the effects of several commands of the BI-BO family. MBO is 
used to embed the current expression in a larger expression. For example, if 
the current expression is (PRINT bigexpression), and the user vrants to replace 
it by (COND (FLG (PRINT bigexpression))), he could accomplish this by (LI i), 
(-1 FLG), (LI 1), and (-1 COND), or by a single MBD command, page 9.47. 

XTR is used to e xtr act an expression from the current expression. For example, 
extracting the PRINT expression from the above COND could be accomplished by 
(1), (LO 1), (1), and (LO 1) or by a single XTR command. The new user is 
encouraged to include XTR and MBD in his repertoire as soon as he is familiär 
with the more basic commands. 

This ends the introductory material. 
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9.3 Attention Changing Commands 


Conunands to tho editor fall Into three classes: commands that change the 
current expresslon (i.e., change the edlt Chain) thereby "shifting the editor's 
attention," commands that modify tha structure being edited, and miscellaneous 
commands, e.g., exiting from the editor, printing, evaluating expressions, etc. 

Vithin the context of commands that shift the editor's attention, we can 
distinguish among (i) those commands whose Operation depends only on the 
structure of the edit chain, e.g., 0, UP, NX; (2) those which depend on the 
contents of the structure, i.e., commands that search; and (3) those commands 
which simply restore the edit chain to some previous state, e.g., \, \P. (1) 
and (2) can also be thought of as local, small Steps versus open ended, big 
Jumps. Commands of type (1) are discussed on page 9.15-21, type (2) on page 
9.21-34, and type (3) on page 9.34-36. 

9.3.1 Local Attention-Changing Commands 


UP (1) If a P command would cause the editor to type 

... before typing the current expression, i.e. the 
current expression is a tail of the next higher 
expression, UP has no effect; otherwise 
(2) UP modifies the edit chain so that the old 
current expression (i.e., the one at the time UP 
was called) is the first element in the new 
current expression . 10 


If the current expression is the first element in the next higher 
expression UP simply does a 0. Otherwise UP adds the corresponding tail to 
the edit chain. 
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Examples: The current expression in each case is 
(COND ((NULL X) (RETURN Y))). 


1. *1 P 
COND 
*UP P 

(COND (& &)) 

2. *-l P 

((NULL X) (RETURN Y)) 

*UP P 

... ((NULL X)i (RETURN Y)) 
*UP P 

... ((NULL X) (RETURN Y))) 

3. *F NULL P 
(NULL X) 

*UP P 

((NULL X) (RETURN Y)) 

*UP P 

... ((NULL X} (RETURN Y))) 


The execution of UP is straightforward, except in those cases where the current 
expression appears more than once in the next higher expression. For example, 
if the current expression is ([A NIL B NIL C NIL) and the user performs 4 
followed by UP, the current expression should then be ... NIL C NIL). UP can 
determine which tail is the corirect one because the commands that descend save 
the last tail on an internal editor variable, lastail. Thus after the 4 
command is executed, lastail is (NIL C NIL). When UP is called, it first 
determines if the current expression is a tail of the next higher expression. 
If it is, UP is finished. Otherwise, UP computes 

memb[current-expression;next-higher-expression] to obtain a tail beginning with 
the current expression . 11 If there are no other instances of the current 
expression in the next higher expression, this tail is the correct one. 


The current expression should always be either a tail or an element of the 
next higher expression. If it is neither, for example the user has 
directly (and incorrectly) manipulated the edit Chain, UP generates an 
error. 
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Otherwise UP uses lastail to select the correct tail.* 2 

n (n > 1) adds the nth elernent of the current expression to 

the front of the edit Chain, thereby making it be 
the new current expression. Sets lastail for use 
by UP. Generates an error if the current 
expression is not a list that contains at least n 
elements. 

-n (n > 1) adds the nth element from the end of the current 

expression to the front of the edit Chain, thereby 
making it be the new current expression. Sets 
lastail for use by UP. Generates an error if the 
current expression is not a list that contains at 
least n elements. 

0 Sets edit Chain to cdr of edit chain, thereby 

making the next higher expression be the new 
current expression. Generates an error if there 
is no higher expression, i.e. cdr of edit Chain is 
NIL. 

Note that 0 usually corresponds to going back to the next higher left 


12 

Occasionally the user can get the edit chain into a state where lastail 
cannot resolve the ambiguity, for example if there were two non-atomic 
structures in the same expression that were eg, and the user descended more 
than one level into one of them and then tried to come back out using UP. 
In this case, UP prints LOCATION UNCERTAIN and generates an error. Of 
course, we could have solved this problem completely in our Implementation 
by saving at each descent both elements and tails. However, this would be 
a costly solution to a Situation that arises infrequently, and when it 
does, has no detrimental effects. The lastail solution is cheap and 
resolves 99% of the ambiguities. 
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parenthesis, but not always. For example, if tho current expression is 

(ABCDEFB), and the user performs: 

*3 UP P 

... C D E F G) 

*3 UP P 
... E F G) 

*0 P 

... C 0 E F G) 

If the Intention is to go back to the next higher left parenthesis, regardless 

of any intervening tails, the command !0 can be used. id 

!0 does repeated 0's until it reaches a point where 

the current expression is not a tail of the next 
higher expression, i.e., always goes back to the 
next higher left parenthesis. 

* sets edit chain to last of edit Chain, thereby 

making the top level expression be the current 
expression. Never generates an error. 

NX effectively does an UP followed by a 2,^ thereby 

making the current expression be the next 

expression. Generates an error if the current 
expression is the last one in a list. (However, 

!NX described below will handle this case.) 

BK makes the current expression be the previous 

55 * ----------- 

!0 is pronounced bang-zero. 

14 

Both NX and BK operate by performing a !0 followed by an appropriate 
number, i.e. there won’t be an extra tail above the new current expression, 
as there would be if NX operated by performing an UP followed by a 2. 
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expression in the next higher expression. 
Generates an error if the current expression is 
the first expression in a list. 

For example, if the current expression is (CONO ((NULL X) (RETURN Y))): 

*F RETURN P 
(RETURN Y) 

*BK P 
(NULL X) 

(NX n) n > 1 equivalent to n NX commands, except if an error 

occurs, the edit Chain is not changed. 

(BK n) n > 1 equivalent to n BK commands, except if an error 

occurs, the edit chain is not changed. 

Note: (NX -n) is equivalent to (BK n), and vice versa. 

!NX nahes current expression be 

a higher level, i.e., goes 
right parentheses to get to 


the next expression at 
through any number of 
the next expression. 


9.19 



For example: 


»PP 

(PROG ((L L) 

(UF L)) 

LP (COND 

((NULL (SETO L (COR L))) 
(ERROR!)) 

([NULL (CDR (FMEMB (CAR L) 

(CAOR L] 

(GO LP))) 

(EDITCOM (QUOTE NX)) 

(SETQ UNFIND UF) 

(RETURN L)) 

*F CDR P 
(CDR L) 

»NX 

NX ? 

*! NX P 
(ERROR! ) 

*! NX P 

((NULL &) (GO LP)) 

*! NX P 

(EOITCOM (QUOTE NX)) 


!NX operates by doing O’s until it reaches a stage where the current expression 
is not the last expression in the next higher expression, and then does a NX. 
Thus !NX always goes through at least one unmatched right parenthesis, and the 
new current expression is always on a different level, i.e., !NX and NX always 
produce different results. For example using the previous current expression: 


*F CAR P 
(CAR L) 

*! NX P 
(GO LP) 
*\P P 
(CAR L) 
»NX P 
(CADR L) 


(NTH n) n 4 0 equiivalent to n followed by UP, i.e., causes the 

list starting with the nth element of the current 
expression (or nth fron the end if n < 0) to 
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become the current expression,"® Causes an error 
if current expression does not have at least n 
elements. 

A generalized form of NTH using location speclflcations is described on page 
9.32. 


9.3.2 Commands That Search 


Iß 

All of the editor commands that search use the same pattern matching routine. 

We will therefore begin our discussion of searching by describing the pattern 
match mechanism. A pattern pat matches with x if: 

1 . gat is §3 to x. 

2 . pat is ft. 

3. pat is a nuraber and eqp to x. 

4. pat is a String and strequal[pat;x] is true. 

5. If car[pat] is the atom *ANY*, cdr[pat] is a list of patterns and 
pat matches x if and only if one of the patterns on cdr[pat] 
matches x. 

6 a. If pat is a literal atom or string containing one or more alt- 

modes, each $ can match an indefinite number (including 0 ) of 

contiguous characters in a literal atom or string, e.g. 

VERS matches both VERYLONGATOM and 
"VERYLONGSTRING" as do SLONGS (but not 
SLONG), and SVSLSTS. 


(NTH i) is a NOP, as is (NTH -n) where n is the length of the current 
expression. 


Iß 

This routine is available to the user directly, and is described on page 
9.88. 
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6 b. If pat is a literal atom or String ending in two alt-modes, pat 
matches with the first atom or string that is "close" to pat . in 
the sense used by the spelling corrector (Section 17). E.g. 
CONSSSS matches with CONS, CNONCSS with NCONC or NCONC1. 

The pattern matching routine always types a message of the form 
=x to inform the user of the object matched by a pattern of type 
6 a or 6 b , 17 e.g. «VERYLONGATOM. 

7. If car[pat] is the atom pat matches x if 

a. cdr[pat]=NIL, i.e. pat=(. e.g. 

(A --) matches (A) (A B C) and (A . B) 

In other words, -- can match any tail of a Hst- 

b. cdr[pat] matches with some tail of x, 

e.g. (A -- (/St)) will match with (ABC (0)), 
but not (ABC 0), or (A B C (0) E). However, 
note that (A -- (&) --) will match with 
(ABC (D) E). 

In other words, -- can match any interior segment of a list. 

8 . If car[pat] is the atom »», pat matches x if and only if cdr[pat] 
is e§ to x. ls 

9. Otherwise if x is a list, pat matches x if car[pat] 
matches car[x], and cdr[pat] matches cdr[x]. 

When the editor is searching, the pattern matching routine is called to match 
with elements in the structure« unless the pattern begins with ..., in which 
case cdr of the pattern is matched against proper tails in the structure. Thus 
if the current expression is (A B C (B C)), 


17 


unless editquietflg *T. 


18 ’ 

Pattern 8 is for use by programs that call the editor as a subroutine, 
since any non-atomic expression in a command typed in by the user obviously 
cannot be eg[ to already existing structure. 
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*F (B --) 

*P (B C) 

*0 F (... B —) 
*P 

... B C (B C)) 


Matching is also attempted with atomic teils (except for NIL). Thus 


*P 

(A (B . C» 
*F C 
*P 

... . C) 


Although the current expression is the atom C after the final command, it is 
printed as ... . C) to alert the user to the fact that C is a tatl, not an 
element. Note that the pattern C will match with either instance of C in 
(A c (B . C)), whereas (... . C) will match only the second C. The pattern NIL 
will only match with NIL as an element, i.e. it will not match in (A B), even 
though cddr of (A B) is NIL. However, (... . NIL) (or equivalently (...)) may 
be used to specify a NIL teil, e.g. (... . NIL) will match with cdr of the 
third subexpression of ((A . B) (C . 0) (E)). 


Search Algorithm 

Searching begins with the current expression and proceeds in print order. 
Searching usually means find the next instance of this pattern, and 
consequently a match is not attempted that would leave the edit Chain 
unchanged.*^ At each step, the pattern is matched against the next element in 
the expression currently being searched, unless the pattern begins with ... in 
which case it is matched against the next tail of the expression. 


IQ 

However, there is a version of the find command which can succeed and leave 
the current expression unchanged (see page 9.26). 
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If the match is not successful, the search Operation is recursive first in the 
car direction and then in the cdr direction, i.e., if the element under 
examination is a list, the search descends into that list before attempting to 
match with other elements (or teils) at the same level. 20 

However, at no point is the total recursive depth of the search (sum of number 
°f £§r s ®nd cdr s descended into) allowed to exceed the value of the variable 
maxlevel . At that point, the search of that element or tail is abandoned, 
exactly as though the element or tail had been completely searched vrithout 
finding a match, and the search continues with the element or tail for which 
the recursive depth is below maxlevel . This feature is designed to enable the 
user to search circular list structures (by setting maxlevel small), as well as 
protecting him from accidentally encountering a circular list structure in the 
course of normal editing. maxlevel is initially set to 300. 21 

If a successful match is not found in the current expression, the search 
automatically ascends to the next higher expression,^ and continues searching 
there on the next expression after the expression it just finished searching. 
If there is none, it ascends again, etc. This process continues until the 
entire edit chain has been searched, at which point the search falls, and an 
error is generated. If the search falls (or, what is equivalent, is aborted by 
control-E), the edit chain is not changed (nor are any conses performed). 

If the search is successful, i.e., an expression is found that the pattern 


20 ... 

There is also a version of the find command (see page 9.27) which only 
attempts matches at the top level of the current expression, i.e., does not 
descend into elements, or ascend to higher expressions. 


maxlevel can also be set to NIL, which is equivalent to infinity. 


22 


See footnote on page 9.24. 




matches, the edit chain is set to the value it would have had had the user 
reached that expression via a sequence of integer commands. 

If the expression that matched was a list, it will be the final link in the 
edit chain, i.e., the new current expression. If the expression that matched 
is not a list, e.g., is an atom, the current expression will be the tail 
beginning with that atom, 23 i.e., that atom will be the first element in the 
new current expression. In other words, the search effectively does an UP. 24 


Search Commands 


All of the commands below set lastail for use by UP, set unfind for use by \ 
(page 9.35), and do not change the edit chain or perform any conses if they 
are unsuccessful or aborted. 

F pattem i.e., two commands: the F informs the editor that 

the next command is to be interpreted as a 
pattern. This is the most common and useful form 
of the find command. If successful, the edit 
chain always changes, i.e., F pattern means find 
the next instance of pattern . 

If memb[pattern;current-expression] is true, F 
does not proceed with a full recursive search. If 
the value of the memb is NIL, F invokes the search 
algorithra described earlier. 


23 ' 

Unless the atom is a tail, e.g. B in (A . B). In this case, the current 

expression will be B, but will print as ... . B). 


•yjf 

Unless upflndflq aNIL (initially set to T). For discussion, see page 
9.43-44. 
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Thus if the current expression is 

(PROG NIL LP (COND (-- (GO LPl)]l) ... LP1 ...), F LP1 will find the prog label, 
not the LP1 Inside of the GO expression, even though the latter appears first 
(in print order) in the current expression. Note that 1 (making the atom PROG 
be the current expression), followed by F LP1 would find the first LP1. 

(F pattern N) satne as F pattern, i.e., finds the next instance 

of pattern, except the memb check of F pattern is 
not performed. 

(F pattern T) Similar to F pattern, except may succeed without 

changing edit chain, and does not perform the memb 
check. 

Thus if the current expression is (COND ..), F COND will look for the next 
COND, but (F COND T) will ’stay here*. 

(F pattern n) n > 1 Finds the nth place that pattern matches. 

Equivalent to (F pattern T) followed by 
(F pattern N) repeated n-1 times. Each time 
pattern successfully matches, n is decremented by 
1 , and the search continues, until n reaches 0. 
Note that the pattern does not have to match with 
n identical expressions; it just has to match n 
times. Thus if the current expression is 
(FOOl F002 F003), (F FOOS 3) will find F003. 

If the pattern does not match successfully n 
times, an error is generated and the edit chain is 
unchanged (even if the pattern matched n-i times). 
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(F pattern) or only matches with elements at the 

(F pattern NIL) top levei of the current expression, i.e., the 

search will not descend into the current 
expression, nor will it go outside of the current 
expression. May succeed without changing edit 
Chain. 

For example. if the current expression is 

(PROG NIL (SETQ X (COND & &)) (COND &) ...), F COND will find the COND inside 
the SETQ, whereas (F (COND --)) will find the top levei COND, i.e., the second 
one. 

(FS patten^ ... pattern n ) equivalent to F pattern^ followed by F 

pattern 2 ... followed by F pattern n , so that if F 
pattern m fails, edit Chain is left at place 

pattern m< .j matched. 

(F- expression x) equivalent to (F (** . expression) x), i.e., 

searches for a structure eg to expression, see 
page 9.22. 


(ORF pattern^ ... pattern n ) equivalent to (F (*ANY* pattern^ ... pattern n ) N), 

i.e., searches for an expression that is matched 
by elther patternj, pattern^, ... or pattern n . 
See page 9.21. 

BF pattern backwards find. Searches in reverse print order, 

beginning with expression immediately before the 
current expression (unless the current expression 
is the top levei expression, in which case BF 
searches the entire expression, in reverse order). 


9.27 



BF uses the sarae pattem match routine as F, and 
tnaxLevel and upfindflg have the same effect, but 
the searching begins at the end of each list, and 
descends into each element before attempting to 
match that element. If unsuccessful, the search 
contlnues with the next prevlous element, etc., 
untll the front of the list is reached, at which 
polnt BF ascends and backs up, etc. 

For example, if the current expression is 

(PROG NIL (SETQ X (SETQ Y (LIST Z))) (COND ((SETQ W —) --)) --), F LIST 
followed by BF SETQ will leave ithe current expression as (SETQ Y (LIST Z)), as 
will F COND followed by BF SETQ. 

(BF pattem T) search always includes current expression, i.e., 

Starts at the end of current expression and works 
backward, then ascends and backs up, etc. 

Thus in the previous example, where F COND followeBF SETQ found 
(SETQ Y (LIST Z)), F COND followed by (BF SETQ T) would find the (SETQ W —) 
expression. 

(BF pattern) sarae as BF pattern. 

(BF pattern NIL) 


Location Specification 

Many of the more sophisticated cotnmands described later in this chapter use a 
more general method of specifying Position called a location specification ♦ A 
location specif ication is a list of edit cotnmands that are executed in the 
normal fashion with two exceptions. First, all commands not recognized by the 
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pc 

editor are interpreted as though they had been preceded by F. For exaraple, 
the location specification (COND 2 3) specifies the 3rd eleinent in the first 
clause of the next COND. 26 

Secondly, if an error occurs while evaluating one of the commands in the 
location specification, and the edit Chain had been changed, i.e., was not the 
same as it was at the beginning of that execution of the location 
specification, the location Operation will continue. In other words, the 
location Operation keeps going unless it reaches a state where it detects that 
it is 'looping', at which point it gives up. Thus, if (COND 2 3) is being 
located, and the first clause of the next COND contained only two elements, the 
execution of the command 3 would cause an error. The search would then 
continue by looking for the next COND. However, if a point were reached where 
there were no further CONDs, then the first command, COND, would cause the 
error; the edit chain would not have been changed, and so the entire location 
Operation would fall, and cause an error. 

The IF command in conjunction with the ## function provide a way of using 
arbitrary predicates applied to elements in the current expression. IF and ## 
will be described in detail later in the chapter, along with examples 
illustrating their use in location specifications. 

Throughout this chapter, the meta-symbol 0 is used to denote a location 
specification. Thus 6 is a list of commands interpreted as described above. 0 
can also be atomic, in which case it is interpreted as list[0]. 


PA 

Normally such commands would cause errors. 


OÄ 

Note that the user could always write F COND followed by 2 and 3 for 
(COND 2 3) if he were not sure whether or not COND was the neune of an 
atomic command. 
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(LC . 0) 


(LCL . 0) 


(ZND . 0) 


(3RD . 0) 


(♦- pattern) 


provides a way of explicitly invoking the location 
oparation, e.g. (LC COND 2 3) «rill perform the the 
search described above. 

Same as LC except the search is conflned to the 
current expression, i.e., the edit chaln is 
rebound during the search so that it looks as 
though the editor were called on just the current 
expression. For example, to find a CONO 
containing a RETURN, one might use the location 
specification (COND (LCL RETURN) \) where the \ 
would reverse the effects of the LCL command, and 
make the final current expression be the COND. 

Same as (LC . 0) followed by another (LC . 0) 
except that if the first succeeds and second 
falls, no change is made to the edit Chain. 

Similar to 2ND. 

ascends the edit chain looking for a link which 
matches pattern . In other words, it keeps doing 
O's until it gets to a specified point. If 
pattern is atomic, it is matched with the first 
element of each link, otherwise with the entire 


27 *----—-----------— 

If pa_t tern is of the form (IF expression), expression is evaluated at each 
link, and if its value is NIL, or the evaluation causes an error, the 
ascent contlnues. 
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For example: 


«pp 

[PROG NIL 

(COND 

[(NULL (SETQ L (COR L))) 
(COND 

(FLG (RETURN L] 

([NULL (COR (FHEMB (CAR L) 

(CADR L]] 

*F CADR 
*(- COND) 

*P 

(COND (& &) (& &)) 


Note that thls cotnmand differs fron BF in that it does not search inside of 
each link, it simply ascends. Thus in tha above example. F CADR followed by 
BF COND would find (COND (FLG (RETURN L))), not the higher COND. 


If no match is found, an error ls generated, and 
the edit Chain is unchanged. 


(BELOW com x) ascends the edit chain looklng for a link 

specified by com , and stops x*^ links below 
that , 29 i.e. BELOW keeps doing O's until it gets 
to a specified point, and then backs off x O's. 


(BELOW com) same as (BELOW com 1). 


For example, (BELOW COND) will cause the cond clause containing the current 
expression to become the new current expression. Thus if the current 
expression is as shown above, F CADR followed by (BELOW COND) will make the new 


x is evaluated, e.g., (BELOW com (IPLUS X Y). 


90 

Only links that are elements are counted, not tails. 
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expression be ([NULL (COR (FMENB (CAR L) (CADR L] (GO LP)), and is therefore 
äquivalent to 0 0 0 0. 

The BELOW command is useful for locating a substructure by specifying something 
it contains. For exaraple, suppose the user is editing a list of lists, and 
wants to find a sublist that contains a F00 (at any depth). He simply executes 
F FOO (BELOW \). 

(NEX x) same as (BELOW x) followed by NX. 

For example, if the user is deep inside of a SELECTQ clause, he can advance to 
the next clause with (NEX SELECTQ). 

NEX sanie as (NEX *»). 

The atomic form of NEX is useful if the user will be performing repeated 
executions of (NEX x). By simply MARKing (see page 9.34) the Chain 
corresponding to x, he can use NEX to step through the sublists. 

(NTH x) generalized NTH command. Effectively performs 

(LCL . x), followed by (BELOW \), followed by UP. 

In other words, NTH locates x, using a search restricted to the current 
expression, and then backs up to the current level, where the new current 
expression is the tail whose first element contains, however deeply, the 
expression that was the terminus of the location Operation. For example: 

*P 

(PROG (& &) LP (COND & &) (EDITCOM &) (SETQ UNFIND UF) (RETURN L)) 

*(NTH UF) 

*P 

... (SETQ UNFIND UF) (RETURN L)) 
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If the search is unsuccessful, NTH generates an 
error and tha edit Chain is not changed. 

Note that (NTH n) is just a special case of (NTH x), and in fact, no special 
check is made for x a number; both commands are executad identically. 

(pattern .. 9) 3 ** e.g., (COND .. RETURN). Finds a cond that 

contains a return . at any depth. Equivalent to 
(but more efficient than) (F pattern N), (LCL . 9) 
followed by (♦■ pattern). 

For example, lf the current expression is 

(PROG NIL [COND ((NULL L) (COND (FLG (RETURN L] —), then (COND .. RETURN) will 

make (COND (FLG (RETURN L))) be the current expression. Note that it is the 

innermost COND that is found, because this is the first COND encountered when 
ascending from the RETURN. In other words, (pattern .. 9) is not almys 

equivalent to (F pattern N), followed by (LCL . 9) followed by \. 

Note that 9 is a location specification, not just a pattern. Thus 

(RETURN .. COND 2 3) can be used to find the RETURN which contains a COND 
whose first clause contains (at least) three elements. Note also that since 9 
permits any edit command, the user can write commands of the form 
(COND .. (RETURN .. COND)), which will locate the first COND that contains a 
RETURN that contains a COND. 


04 ) 

An infix command, is not a meta-symbol, it is the name of the command. 
9 is cddr of the command. 
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9.3.3 Commands That Save and Restore The Edit Chain 


Several facilities are available for saving the current edit chain and later 
retrieving it: MARK, which marks the current chain for future reference, «-, 31 
which returns to the last mark without destroying it, and which returns to 
the last mark and also erases it. 

MARK adkls the current edit chain to the front of the 

list markist . 

«- maltes the new edit chain be (CAR MARKLST). 

Generates an error if markist is NIL, i.e., no 
MARKs have been performed, or all have been 
erased. 

*-*- similar to but also erases the MARK, i.e., 

performs (SETQ MARKLST (COR MARKLST)). 

Note that if the user has two chains marked, and wlshes to return to the first 
chain, he must perform which removes the second mark, and then •>. However, 

the second mark is then no longer accessible. If the user wants to be able to 
return to either of two (or more) chains, he can use the following generalized 
MARK: 


(MARK atom) 


(\ atom) 


sets atom to the current edit chain, 

makes the current edit chain become the value of 
atom. 


31 


An atomic command; do not confuse «- with the list counand («- pattern). 




If the user did not prepare in advance for returning to a particular edit 
Chain, he may still be able to return to that Chain with a single command by 
using \ or \P. 

\ makes the edit chain be the value of unfind. 

Generates an error if unfind «NIL. 

unfind is set to the current edit Chain by each command that makes a "big 
jump", i.e., a command that usually performs more than a single ascent or 
descent, namely t k *-*•, !NX, all commands that involve a search, e.g., F, LC, 
... BELOW, et al and \ and \P themselves. 32 

For example, if the user types F COND, and then F CAR, \ would take him back to 

the COND. Another \ would take him back to the CAR, etc. 

\P restores the edit chain to its state as of the 

last print Operation, i.e. P, ?, or PP. If the 
edit chain has not changed since the last 
printing, \P restores it to its state as of the 
printing before that one, i.e., two chains are 
alvrays saved. 

For example, if the user types P followed by 3 2 1 P, \P will return to the 

first P, i.e., would be equivalent to 0 0 0. 33 Another \P would then take him 

back to the second P, i.e., the user could use \P to flip back and forth 
between the two edit chains. 


32 

Except that unfind is not reset when the current edit chain is the top 
level expression, since this could always be returned to via the t command. 


QQ 

Note that if the user had typed P followed by F COND, he could use either \ 
or \P to return to the P, i.e., the action of \ and \P are independent. 
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(S var . @) Sets var (using setq ) to the current expression 

afiter performing (LC . 0). Edit chain is not 
chnnged. 

Thus (S FOO) will set foo to the current expression, (S FOO -1 1) will set foo 
to the first element in the last elernent of the current expression. 


This ends the section on "Attention Changing Comnands." 


9,4 Commands That Modify Structure 

The basic structure modification commands in the editor are: 

n > 1 deletes the corresponding element front the 
current expression. 

n,m > 1 replaces the nth element in the current 

expression with e. ... e . 

l m 

n,m > 1 inserts e t ... e m before the nth element 
in the current expression. 

(N Oj ... ®ju) m > 1 attaches e t ... e n at the end of the current 

expression. 


(~n e. 


• e m> 


(n ej ... e m ) 


As mentioned earlier: 


all structure modification done by the editor is destructiue, i.e. the editor 
uses rplaca and rplacd to phusically change the structure it was given. 


However, all structure modification is undoable, see UNOO page 9.78. 
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All of the above commands generate errors if the current expression is not a 
list, or in the case of the first three commands, if the list contains fewer 
than n elements. In addition, the command (1), i.e. delete the first element, 
will cause an error if there is only one element, since deleting the first 
element must be done by replacing it with the second element, and then deleting 
the second element. Or,.to look at it another way, deleting the first element 
when there is only one element would require changing a list to an atom (i.e. 
to NIL) which cannot be done. 34 


9.4.1 Implementation of Structure Hodification Commands 

Note» Since all commands that insert, reptace, delete or attach structure use 
the same low level editor functions, the remarks made here are valid for 
all structure changing commands. 

For all replacement, Insertion, and attaching at the end of a list, unless the 
command was typed in directly to the editor, 35 c opies of the corresponding 
structure are used, because of the possibility that the exact same command, 
(i.e. same list structure) might be used again. Thus if a program constructs 
the command (1 (A B C)) e.g. via (LIST 1 F00), and gives this command to the 
editor, the (A B C) used for the replacement will not be e£ to foo. 33 


34 

However, the command DELETE will work even if there is only one element in 
the current expression, since it will ascend to a point where it can do the 
deletion. 


qr 

Some editor commands take as arguments a list of edit commands, e.g. 
(LP F FOO (1 (CAR FOO))). In this case, the command (1 (CAR F00)) is not 
considered to have been "typed in" even though the LP command itself may 
have been typed in. Similarly, commands originating from macros, or 
commands given to the editor as arguments to editf . editv , et al, e.g. 
EOITF(FOO F COND (N --)) are not considered typed in. 


0/3 

The user can circumvent this by using the I command, which computes the 
structure to be used. In the above example, the form of the command would 
be (I 1 FOO), which would replace the first element with the value of foo 
itself. See page 9.62. 
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The rest of this section is lncluded for applicatlons wherein the editor is 
used to modify a data structure, and pointers into that data structure are 
stored elsewhere. In these cases, the actual mechanics of structure 
modification must be knovm in order to predict the effect that various commands 
may have on these outside pointers. For example, if the value of foo is cdr of 
the current expression, what will the commands (2), (3), (2 X Y Z), (-2 X Y Z), 
etc. do to foo ? 

Deletion of the first element in the current expression is performed by 
replacing it with the second element and deleting the second element by 
patching around it. Deletion of any other element is done by patching around 
it, i.e., the previous tail is altered. Thus if foo ,is eg to the current 
expression which is (A 8 C D), and fie is cdr of foo , after executing the 
command (1), foo will be (B C D) (which is equal but not eg to fie). However, 
under the same initial conditions, after executing (2) fie will be unchanged, 
i.e., fie will still be (B C D) even though the current expression and foo are 
now (A C D). 37 

Both replacement and insertion are accomplished by smashing both car and cdr of 
the corresponding tail. Thus, if foo were eg to the current expression, 
(ABC D), after (1 X Y Z), foo would be (X Y Z B C D). Similarly, if foo were 
eg to the current expression, (A B C D), then after (-1 X Y Z), foo would be 
(X Y Z A B C D). 

The N command is accomplished by smashing the last cdr of the current 


A general solution of the problem just isn't possible, as it would require 
being able to make two lists eg to each other that were originally 
different. Thus if fie is ccr of the current expression, and fum is cddr 
of the current expression, performing (2) would have to make fie be eg to 
fum if all subsequent operations were to update both fie and fum correctly. 
Think about it. - —- 
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expression a la nconc . Thus if foo wäre eg to any tail of the current 
expression, after executing an N command, the corresponding expressions would 
also appear at the end of foo . 

In summary, the only Situation in which an edit Operation will not change an 
external pointer occurs when the external pointer is to a proper tail of the 
data structure, i.e., to cdr of some node in the structure, and the Operation 
is deletion. If all external pointers are to elements of the structure, i.e., 
to car of some node, or if only insertions, replacements, or attachments are 
performed, the edit Operation will always have the same effect on an external 
pointer as it does on the current expression. 


9.4.2 The A. B, and : Commands 

In the (n), (n «j .., e m ), and (-n e^ ... e ffl ) commands, the sign of the 
integer is used to indicate the Operation. As a result, there is no direct way 
to express Insertion after a particular element, (hence the necessity for a 
separate N command). Similarly, the user cannot specify deletion or 
replacement of the nth element fron the end of a list without first Converting 
n to the corresponding positive integer, Accordingly, we have: 

(B 6j ... e m ) inserts e^ ... e m before the current expression. 

Equivalent to UP followed by (-1 e } ... e m ). 

For example, to insert FOO before the last element in the current expression, 
perform -I and then (B FOO). 

(A ßj ... e m ) inserts Oj ... e n after the current expression. 

Equivalent to UP followed by (-2 e t ... e n ) or 
(N e t ... e m ) whichever is appropriate. 
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(: ®l ®m^ replaces the current expression by e t ... e n . 

Equivalent to UP followed by (1 ... e m ). 

DELETE, or (:) deletes the current expression. 

DELETE first tries to delete the current expression by perforraing an UP and 
then a (1). This works in most cases. However, if after perforraing UP, the 
new current expression contains only one element, the command (i) will not 
work. Therefore, DELETE Starts over and performs a BK, followed by UP, 
followed by (2). For example, if the current expression is 
(COND ((MEMB X Y)) (T Y)), and the user perforros -1, and then DELETE, the 
BK-UP-(2) raethod is used, and the new current expression will be ... 
((MEMB X Y))) 

However, if the next higher expression contains only one element, BK will not 
work. So in this case, DE LE TIE performs UP, followed by (: NIL), i.e., it 
replaces the higher expression by NIL. For example, if the current expression 
is (COND ((MEMB X Y)) (T Y)) and the user performs F MEMB and then DELETE, the 
new current expression will be ... NIL (T Y)) and the original expression would 
now be (COND NIL (T Y)). The rationale behind this is that deleting (MEMB X Y) 
from ((MEMB X Y)) changes a list of one element to a list of no elements, i.e., 
() or NIL. 

If the current expression is a tail, then B, A, :, and DELETE all work exactly 
the same as though the current expression were the first element in that tail. 
Thus if the current expression were ... (PRINT Y) (PRINT Z)), (B (PRINT X)) 
would insert (PRINT X) before (PRINT Y), leaving the current expression 
... (PRINT X) (PRINT Y) (PRINT 2)). 
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The following forms of the A, B, and ; commands incorporate a location 
speciflcation: 


(INSERT ej ... e m BEFORE . 9) 38 Similar to (LC .9) 39 followed by (B 

e. ... 9 ). 
l n 


*P 

(PROG (Ä Ä X) **COMMENT** (SELECTQ ATH A NIL) (OR & A) (PRIN1 A T) 
(PRIN1 & T) (SETQ X & 

*(INSERT LABEL BEFORE PRIN1) 

*P 

(PROG (& & X) **COMMENT** (SELECTQ ATM A NIL) (OR A A) LABEL 
(PRIN1 A T) ( 


Current edit Chain is not changed, but unfind is 
set to the edit Chain after the B was performed, 
i.e. \ will make the edit chain be that Chain 
where the Insertion was performed. 

(INSERT e t ... e m AFTER . 9) Similar to INSERT BEFORE except uses A instead of 

B. 

(INSERT e } ... e m FOR . 9) similar to INSERT BEFORE except uses : for B. 


33 i.e. 9 is cdr[memberfBEFORE;cotnmand]] 


except that if 6 causes an error, the location process does not continue as 
described on page 9.29. For example if @=(COND 3) and the next CONO does 
not have a 3rd element, the search stops and the INSERT falls. Note that 
the user can always write (LC CONO 3) if he intends the search to continue. 


40 

Sudden termination of output followed by a blank line return indicates 
printing was aborted by control-E. 
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(REPLACE 9 WITH e^ ... e m ) 4 * Here 9 4 ^ is the Segment of the command between 

REPLACE and WITH. Same as 

(INSERT 6j ... e m FOR . B). 

Example: (REPLACE COND -1 WITH (T (RETURN L))) 

(CHANGE @ TO ej ... e m ) Same as REPLACE WITH. 

(DELETE . @) does a (LC . 9) 43 followed by DELETE. Current 

edit chain is not changed, 44 but unfind is set to 
the edit chain after the DELETE was performed. 

Example: (DELETE -1), (DELETE COND 3) 


Notei if @ is NIL (i.e. emptg), the corresponding Operation is performed here 
(on the current edit chain). 

For example. (REPLACE WITH (CAR X)) is equivalent to (: (CAR X)). For added 
readability, HERE is also perraitted, e.g. (INSERT (PRINT X) BEFORE HERE) will 
insert (PRINT X). before the current expression (but not change the edit 
chain). 


41 BY can be used for WITH. 


42 

See footnote on page 9.41. 


43 

See footnote on page 9.41. 


Unless the current expression is no longer a part of the expression being 
?: g * if the curren1t expression is ... C) and the user performs 
(DELETE 1), the tail, (C), will have been cut off. Similarly, if the 
current expression is (CDR Y) and the user performs (REPLACE WITH (CAR X)). 
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Notei & does not haue to specify a location wlthln the current expresston, i.e. 
it is perfectly legal to ascend to INSERT, REPLACE, or DELETE 

For example, (INSERT (RETURN) AFTER t PROG -1) will go to the top, find the 
first PROG, and insert a (RETURN) at its end, and not change the current edit 
chain. 

The A, B, and : commands, commands, (and consequently INSERT, REPLACE, and 
CHANGE), all make special checks in thru e m for expressions of the form (## 
. coms). In this case, the expression used for inserting or replacing is a 
c opy of the current expression after executing coms , a list of edit commands.^ 
For example, (INSERT (## F COND -1 -1) AFTER 3) 46 will make a copy of the last 
form in the last clause of the next cond . and insert it after the third element 
of the current expression. 


9.4.3 Form Oriented Editing and the Role of UP 

The UP that is performed before A, B, and : commands makes these operations 
form-oriented. For example, if the user types F SETQ, and then DELETE, or 
simply (DELETE SETQ), he will delete the entire SETQ expression, whereas 
(DELETE X) if X is a variable, deletes just the variable X. In both cases, the 
Operation is performed on the corresponding form, and in both cases is probably 
what the user intended. Similarly, if the user types 

(INSERT (RETURN Y) BEFORE SETQ), he means before the SETQ expression, not 


45 The execution of coms does not change the current edit chain. 

46 Not (INSERT F COND -1 (## -1) AFTER 3), which inserts four elements after 

the third element, namely F, COND, -i, and a copy of the last element in 

the current expression. 


47 


and therefore in INSERT, CHANGE, REPLACE, and DELETE commands after the 
location portion of the Operation has been performed. 


before the atom SETQ.^ 6 A consequent of this procedura is that a pattern of the 
form (SETQ Y --) can be viewed as simply an elaboration and further refinement 
of the pattern SETQ. Thus (INSERT (RETURN Y) BEFORE SETQ) and 
(INSERT (RETURN Y) BEFORE (SETQ Y --)) perform the same Operation^ and, in 
fact, this is one of the motivations behind oaking the current expression after 
F SETQ, and F (SETQ Y --) be the same. 

Occasionally, however, a user may have a data structure in which no special 
significance or meaning is attached to the Position of an atom in a list, as 
INTERLISP attaches to atoms that appear as car of a list, versus those 
appearing elsewhere in a list. In general, the user may not even know whether 
a particular atom is at the head of a list or not. Thus, when he writes 
(INSERT expression BEFORE FOO), he means before the atom F00, whether or not it 
is car of a list. By setting the variable upfindflg to NIL, 60 the user can 
suppress the implicit UP that follows searches for atoms, and thus achieve the 
desired effect. With upfindflg -NIL. following F FOO, for example, the current 
expression will be the atom FOO. In this case, the A, B, and : operations will 
operate with respect to the atom FOO. If the user intends the Operation to 
refer to the list which FOO heads, he simply uses instead the pattern (FOO --). 


48 


There is some ambiguity in (INSERT expr AFTER functionname), as the user 
might mean make expr be the function's first argument. Similarly, the user 
cannot write (REPLACE SETQ WITH SETQQ) meaning change the name of the 
tunction. The user must in these cases write (INSERT expr AFTER 
functioname 1), and (REPLACE SETQ 1 WITH SETQQ). 
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assuming the next SETQ is of the form (SETQ Y —). 


60 


Initlally, and usually, set to T. 




9.4.4 Extract and Embed 


Extraction involves replacing the current expression with one of its 
subexpressions (from any depth). 

(XTR .6) replaces the original current expression vrith the 

expression that is current after performing 
(LCL . 9). 6t 

For example, if the current expression is (CONO ((NULL X) (PRINT Y)>), 
(XTR PRINT), or (XTR Z Z) will replace the cond by the print . 

If the current expression after (LCL .0) is a 
t ail of a higher expression, its first element is 
used. 

For example, if the current expression is (COND ((NULL X) Y) (T Z)), then 
(XTR Y) will replace the cond with Y, even though the current expression after 
performing (LCL Y) is ... Y). 

If the extracted expression is a list, then after 
XTR has finished, the current expression will be 
that list. 

Thus, in the first example, the current expression after the XTR would be 
(PRINT Y). 


See footnote on page 9.41. 
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If the extracted oxpression is not a list, the new 
current expression will be a teil whose first 
element is that non-list. 

Thus, in the second example, the current expression after the XTR would be 
... Y followed by whatever followed the COND. 

If the current expression initiallg is a tail, extraction works exactly the 
same as though the current expression were the first element in that tail. 
Thus if the current expression is ... (COND ((NULL X) (PRINT Y))) (RETURN Z)), 
then (XTR PRINT) will replace the cond by the print . leaving (PRINT Y) as the 
current expression. 

The extract command can also incorporate a location specification: 

(EXTRACT @j FROM . § 2 ) 62 Perforras (LC . @ 2 ) 63 and then (XTR . ©j). Current 

edit chain is not changed, but unfind is set to 
the edit chain after the XTR was performed. 

Example: If the current expression is (PRINT (COND ((NULL X) Y) (T Z))) then 
following (EXTRACT Y FROM COND), the current expression will be (PRINT Y). 
(EXTRACT 2 -1 FROM COND), (EXTRACT Y FROM 2), (EXTRACT 2 -1 FROM 2) will all 
produce the same result. 


62 


is the segment between EXTRACT and FROM. 


63 


See footnote on page 9.41. 
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While extracting replaces the current expression by a subexpression, embedding 
replaces the current expression with one containing it as a subexpression. 

(MBD ej ... e m ) MBO substitutes 54 the current expression for all 

instances of the atom * in e^ ... e n , and replaces 
the current expression with the result of that 
Substitution. 

Examples: If the current expression is (PRINT Y), 

(MBD (COND ((NULL X) *) ((NULL (CAR Y)) * (GO LP)))) would replace (PRINT Y) 
with (COND ((NULL X) (PRINT Y)) ((NULL (CAR Y)) (PRINT Y) (GO LP))). 

If the current expression is (RETURN X), (MBD (PRINT Y) (AND FLG *)) would 
replace; it with the two expressions (PRINT Y) and (AND FLG (RETURN X)) i.e., if 
the (RETURN X) appeared in the cond clause (T (RETURN X)), after the MBD, the 
clause would be (T (PRINT Y) (AND FLG (RETURN X))). 

If * does not appear in e^ ... e m , the MBD is 
interpreted as (MBD (e t ... e m *)). 

Examples: If the current expression is (PRINT Y), then (MBD SETQ X) will 
replace it with (SETQ X (PRINT Y)). If the current expression is (PRINT Y), 
(MBD RETURN) will replace it with (RETURN (PRINT Y)). 

MBD leaves the edit chain so that the larger expression is the new current 
expression. 


64 


as with subst . 


a fresh copy is used for each Substitution. 
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If the current expression initial ly is a tail, embedding works exactly the same 
as though the current expression were the first element in that tail. Thus if 
the current expression were ... (PRINT Y) (PRINT Z)), (MBO SETQ X) would 
replace (PRINT Y) with (SETQ X (PRINT Y)). 

The embed command can also incorporate a location specification: 

(EMBED 9 IN . x) 66 does (LC . 9) 60 and then (MBO . x). Edit Chain is 

not changed, but unfind is set to the edit Chain 
after the MBD was performed. 

Example: (EMBED PRINT IN SETQ X), (EMBED 3 2 IN RETURN), 

(EMBED COND 3 1 IN (OR * (NULL X))). 

WITH can be used for IN, and SURROUND can be used for EMBED, e.g., (SURROUND 
NUMBERP WITH (AND * (MINUSP X))). 

9.4.5 The MOVE Command 

The MOVE command allows the user to specify (i) the expression to be moved, (Z) 
the place it is to be moved to, and (3) the Operation to be performed there, 
e.g., insert it before, insert it after, replace, etc. 

(MOVE TO com . @ 2 ) 67 where com is BEFORE, AFTER, or the name of a list 


9 is the segment between EMBED and IN. 
See footnote on page 9.41. 

is the segment between MOVE and TO. 
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/i/t 

command, e.g., N, etc. performs (LC . 0j), 
and obtains the current expression there (or its 
first element, if it is • teil)» which we will 
call expr ; MOVE then goes back to the original 
edit chain, performs (LC . & 2 ) followed by 
(com expr), 69 then goes back to and deletes 
expr . Edit Chain is not changed. Unfind is set 
to edit Chain after (com expr) was performed. 


For example, if the current expression is (A B C 0), (HOVE 2 TO AFTER 4) will 
make the new current expression be (A C D B). Note that 4 was executed as of 
the original edit Chain, and that the second element had not yet been 
removed. 69 


As the following examples taken from actual editing will show, the MOVE command 
is an extremely versatile and powerful feature of the editor. 


*? 

(PROG ((L L)) (EDLOC (CDOR C)) (RETURN (CAR L))) 
*(HOVE 3 TO : CAR) 

*? 

(PROG ((L L)) (RETURN (EDLOC (CDDR C)))) 


*P 

... (SELECTQ OBJPR & &) (RETURN 4) LP2 (COND & 4)) 
*(MOVE 2 TO N 1) 

*P 

... (SELECTQ OBJPR 4 4 4) LP2 (COND & 4)) 

* 


see footnote on page 9.41. 

69 Setting an internal flag so expr is not copied. 

69 If specifies a location inside of the expression to be moved, a message 
is printed and an error is generated, e.g. (MOVE 2 TO AFTER X), where X is 
contained inside of the second element. 
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*p 

(OR (EQ X LASTAIL) (NOT &) (AND & & &)) 
*(MOVE 4 TO AFTER (BELOW COND)) 

*P 

(OR (EQ X LASTAIL) (NOT &)) 

*\ P 

. . . (& &) (AND & & &) (T & &)) 

* 


*P 

((NULL X) **COMMENT** (COND & &)) 

*(-3 (GO NXT] 

*(MOVE 4 TO N (- PROG)) 

*P 

((NULL X) **COMMENT** (GO NXT)) 

*\ P 

(PROG (&) **COMMENT** (COND & & 8) (COND & & &) (COND & &)) 

*( INSERT NXT BEFORE -1) 

*P 

(PROG (&) **COMMENT** (COND & & &) (COND & & &) NXT (COND & &)) 


Note that in the last example, the user could have added the prog label NXT and 
moved the cond in one Operation by performing (MOVE 4 TO N (♦* PROG) (N NXT)). 
Similarly, in the next example, in the course of specifying Qg, the location 
where the expression was to be moved to, the user also performs a structure 
modification, via (N (T)), thus creating the structure that will receive the 
expression being moved. 


*P 

((CDR &) **COMMENT** (SETQ CL &) (EOITSMASH CL & &)) 
*MOVE 4 TO N 0 (N (T)) -1] 

*P 

((CDR &) **COMMENT** (SETQ CL &)) 

*\ P 

*(T (EDITSMASH CL & &)) 


^ ®2 NIL, or (HERE), the current Position specifles where the Operation is 
to talte place. In this case, unfind is set to where the expression that was 
moved was originally located, i.e. For example: 


*P 

(TENEX) 

*(MOVE t F APPLY TO N HERE) 
*P 

(TENEX (APPLY & &)) 
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*p 

(PROG (ft & & ATM IND VAL) (OR & &) **COMMENT** (OR & ft) (PRIN1 & T) ( 
PRIN1 & T) (SETQ IND 

ol 

*(MOVE * TO BEFORE HERE) 

*P v 

(PROG (& & & ATM IND VAL) (OR & &) (OR & ft) (PRIN1 & 

*P 

(T (PRIN1 C-EXP T)) 

*(MOVE t BF PRIN1 TO N HERE) 

*P 

(T (PRIN1 C-EXP T) (PRIN1 & T)) 

it 


Finally, if is NIL, the MOVE cotnmand allows the user to specify where the 
current expression is to be moved to. In this case, the edit Chain 1s changed, 
and is the chain where the current expression was moved to; unfind is set to 
where it was. 


*P 

(SELECTO OBJPR (ft) (PROGN & &)) 

*(MOVE TO BEFORE LOOP) 

*P 

... (SELECTO OBJPR & &) LOOP (FRPLACA DFPRP &) (FRPLACD DFPRP 

ft) (SELECTO 
* 


9.4.6 Commands That "Hove Parentheses* 

The commands presented in this section permit modif ication of the list 
structure itself, as opposed to modifying components thereof. Their effect can 
be described as inserting or removing a single left or right parenthesis, or 
pair of left and right parentheses. Of course, there will always be the same 
number of left parentheses as right parentheses in any list structure, since 
the parentheses are just a notational guide to the structure provided by print . 
Thus, no command can insert or remove just one parenthesis, but this is 
suggestive of what actually happens. 

Sudden termination of output followed by a blank line indicates printing 
was aborted by control-E. 
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In all six commands, n and m are used to specify an element of a list, usually 
of the current expression. In practice, n and m are usually positive or 
negative integers with the obvious Interpretation. However, all six commands 
use the generalized NTH command, page 9.32, to find their element(s), so that 
nth element means the first element of the tail found by performing (NTH n). 
In other words, if the current expression is 

(LIST (CAR X) (SETQ Y (CONS W Z))), then (BI 2 CONS), (BI X -1), and (BI X Z) 
all specify the exact same Operation. 

All six commands generate an error if the element is not found, i.e. the NTH 
falls. All are undoable. 

( BI n ®) bot;h in, inserts a left parentheses before the nth 

element and after the mth element in the current 
expression. Generates an error if the mth element 
is not contained in the nth tail, i.e., the mth 
element must be "to the right" of the nth element. 

Example: If the current expression is (A B (C 0 E) F G), then (BI 2 4) will 
modify it to be (A (B (C 0 E) F) G). 

( ßI n) same as (BI n n). 

Example: If the current expression is (A B (C 0 E) F G), then (BI -2) will 
modify it to be (A B (C D E) (F) G). 

* ß0 both out. Removes both parentheses from the nth 

element. Generates an error if nth element is not 
a list. 

Example: If the current expression is (A B (C D E) F G), then (BO 0) will 
modify it to be (A B C 0 E F G). 
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(LI n) left in, inserts a left parenthesis before the nth 

element (and a matching right parenthesis at the 
end of the current expression), i.e. equivalent 
to (81 n -1). 

Example: if the current expression is (A 8 (C D E) F 6), then (LI 2) will 

roodify it to be (A (8 (C D E) F 6)). 

(LO n) left out, removes a left parenthesis from the nth 

element. All elements following the nth element 
are deleted. Generates an error if nth element is 
not a list. 

Example: If the current expression is (A B (C 0 E) F G), then (LO 3) will 

modify it to be (A 8 C 0 E). 

(RI n m) right in, inserts a right parenthesis after the 

mth element of the nth element. The rest of the 
nth element is brought up to the level of the 
current expression. 

Example: If the current expression is (A (8 C 0 E) F G), (RI 2 2) will modify 

it to be (A (B C) DE F G). Another way of thinking about RI is to read it as 

"move the right parenthesis at the end of the nth element in to after its mth 
element." 

(RO n) right out, removes the right parenthesis from the 

nth element, moving it to the end of the current 
expression. All elements following the nth 
element are moved Inside of the nth element. 
Generates an error if nth element is not a list. 
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Example: If the current expression is (A B (C D E) F G), (RO 3) will modify it 
tobe (AB (CDEF G)). Another way of thinking about RO is to read it as 
"move the right parenthesis at the end of the nth element out to the end of 
the current expression." 


9.4.7 TO and THRU 

EXTRACT, EMBED, DELETE, REPLACE, and HOVE can be made to operate on several 
contiguous elements, i.e., a segment of a list, by using in their respective 
location specifications the TO or THRU comnand. 

THRU does a (LC . @j) f followed by an UP, and then a 

(BI 1 ® 2 ), thoreby grouping the segment into a 
single element, and finally does a 1, making the 
final current expression be that element. 

For example, if the current expression is (A (B (C 0) (E) (F GH) I) J K), 
following (C THRU G), the current expression will be ((C 0) (E) (F G H)). 

(®1 Same as THRU except last element not included, 

i.e., after the BI, an (RI 1 -2) is performed. 

If both and @ 2 ar ® numbers, and @ 2 is greater than then @ 2 counts from 
the beginning of the current expression, the same as @j. In other words, if 
the current expression is (A B C D E F G), (3 THRU 5) means (C THRU E) not 
(C THRU G). In this case, the corresponding BI command is (BI i @ 2 "®1 +1 )* 

THRU and TO are not very useful commands by themselves; they are intended to be 
used in conjunction with EXTRACT, EMBED, DELETE, REPLACE, and MOVE. After THRU 
and TO have operated, they set an internal editor flag informing the above 
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commands that the element they are operating on is actually a segtnent, and that 
the extra pair of parentheses should be removed when the 'Operation is complete. 

I 

Thus: 


*P 

(PROG (& & ATM IND VAL WORD) (PRIN1 & T) (PRINl & T) (SETQ INO &) (SETQ VAL &) 
**COMMENT** (SETQQ V ' 

* (MOVE (3 THRU 4) TO BEFORE 7) 

*P 

(PROG (& & ATM IND VAL WORD) (SETQ IND &) (SETQ VAL &) (PRINi & T) (PRINl & T) 
**COMMENT** 


* 


*P 

(* FAIL RETURN FROM EOITOR. USER SHOULD NOTE THE VALUES OF SOURCEXPR AND 
CURRENTFORM. CURRENTFORM IS THE LAST FORM IN SOURCEXPR WHICH WILL HAVE BEEN 
TRANSLATED, AND IT CAUSED THE ERROR.) 

MDELETE (USER THRU CURRS)) 

«CURRENTFORM. 

*P 

(* FAIL RETURN FROM EDITOR. CURRENTFORM IS 


* 


...LP (SELECTO & & & & NIL) (SETQ V &) OUT (SETQ FLG &) (RETURN Y)) 
*(MOVE (1 TO OUT) TO N HERE] 

*P 

” • OUT (SETQ FLG &) (RETURN Y) LP (SELECTQ & & & & NIL) (SETQ Y &)) 


«pp 

[PROG (RF TEMPI TEMP2) 

(COND 

((NOT (MEMB REMARG LISTING)) 

(SETQ TEMPI (ASSOC REMARG NAMEDREMARKS)) **COMMENT** 

(SETQ TEMP2 (CADR TEMPI)) 

(GO SKIP)) 

(T **COMMENT** 

(SETQ TEMPI REMARG))) 

(NCONC1 LISTING REMARG) 

(COND 

((NOT (SETQ TEMP2 (SASSOC 

*(EXTRACT (SETQ THRU CADR) FROM COND) 

*P 

(PROG (RF TEMPI TEMP2) (SETQ TEMPI &) **COMMENT** (SETQ TEMP2 &) 
(NCONC1 LISTING REMARG) (COND & & 
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TO and THRU can also be used directly with XTR.®^ Thus in the previous example, 
if the current expression had baen the COND, e.g. the user had first performed 
F COND, he could have used (XTR (SETQ THRU CADR)) to perform the extraction. 


(§j TO), THRU) both same as (0j THRU -1), i.e., from through 

the end of the list. 


Examples: 

*P 

(VALUE (RPLACA DEPRP &) (RPLACD &) (RPLACA VARSWORD ft) (RETURN)) 
*(MOVE (2 TO) TO N («- PROG)) 

*(N (GO VAR)) 

*P 

(VALUE (GO VAR)) 


*P 

(T **COMMENT** (COND ft) **COMMENT** (EDITSMASH CL & ft) (COND &)) 
*(-3 (GO REPLACE)) 

*(HOVE (COND TO) TO N t PROG (N REPLACE)) 

*P 

(T **COMMENT** (GO REPLACE)) 

*\ P 

(PROG (&) **COMMENT** (COND & & &) (COND ft & &) DELETE (COND & ft) 
REPLACE (COND ft) ««COMMENT** (EDITSMASH CL & ft) (COND &)) 


Because XTR involves a location specification while A, B, and MBD do 
not. 


62 




«pp 

[LAMBDA (CLAUSALA X) 

(PROG (A D) 

(SETQ A CLAUSALA) 

LP (COND 

((NULL A) 

(RETURN))) 

(SERCH X A) 

(RUMARK (CDR A)) 

(NOTICECL (CAR A)) 

(SETQ A (CDR A)) 

(GO LP] 

*(EXTRACT (SERCH THRU NOTS) FROM PROG) 

=NOTICECL 
*P 

(LAMBDA (CLAUSALA X) (SERCH X A) (RUMARK &) (NOTICECL &)) 

*(EMBEO (SERCH TO) IN (MAP CLAUSALA (FUNCTION (LAMBOA (A) *] 

«pp 

[LAMBDA (CLAUSALA X) 

(MAP CLAUSALA (FUNCTION (LAMBDA (A) 

(SERCH X A) 

(RUMARK (CDR A)) 

(NOTICECL (CAR A] 


9.4.8 The R Command 

(R x y) replaces all instances of x by y in the current 

expression, e.g., (R CAADR CADAR). Generates an 
error if there is not at least one instance. 

The R command operates in conjunction with the search mechanism of the editor. 
The search proceeds as described on page 9.23-25, and x can employ any of the 
patterns on page 9.21-23. Each time x matches an element of the structure, the 
element is replaced by (a copy of) y; each time x matches a tail of the 
structure, the tail is replaced by (a copy of) y. 

For example, if the current expression is (A (B C) (B . C)), 

(R C D) will change it to (A (B D) (B . D)), 

(R (... . C) D) to (A (B C) (B . D)), 

(R C (D E)) to (A (B (D E)) (B D E)), and 
(R (... . NIL) D) to (A (B C . D) (B . C) . D). 


9.57 



If x is an atora or string containing alt-modes, alt-modes appearing in y stand 
for the characters matched by the corresponding alt-mode in x. For example, 
(R FOOS FIES) means for all atoms or strings that begin with FOO, replace the 
characters 'FOO* by 'FIE'. 63 Applied to the list 
(FOO F002 XFOOl), (R FOOS FIES) would produce (FIE FIE2 XFOOl), and 
(R SFOOS SFIES) would produce (FIE FIE2 XFIE1). Similarly, (R SOS SAS) will 
Change (LIST (CADR X) (CAODR Y)) to (LIST (CAAR X) (CAADR)). 04 

The user will be informed of all such alt-mode replacements by a message of the 
form x->y, e.g. CADR->CAAR. 

Note that the S feature can be used to delete or add characters, as well as 
replace them. For example, (R $1 S) will delete the terminating l's from all 
literal atoms and strings. Similarly, if an alt-mode in x does not have a mate 
in y, the characters matched by the S are effectively deleted. For example, 
(R $/$ $) will change AND/OR to AND. 33 y can also be a list containing 
alt-modes, e.g. (R $i (CAR S)) will change F001 to (CAR FOO), FIE1 to 
(CAR FIE). 

If x does not contain alt-modes, S appearing in y refers to the entire 


If x matches a string, it will be replaced by a string. Note that it does 
not matter whether x or y themselves are strings, i.e. 
(R SDS SAS), (R -SOS" SAS)7 (R SOS "SAS"), and (R "SDS" "SAS") are 
equivalent. Note also that x will never match with a number, i.e. 
(R $1 $2) will not change 11 to - 12. 


64 

Note that CADDR was not changed to CAAAR, i.e. (R SDS SAS) does not mean 
replace every 0 with A, but replace the first D in every atom or string by 
A. If the user wanted to replace every D by A, he could perform 
(LP (R SOS SAS)). 


66 

However, there is no similar Operation for changing AND/OR to OR, since the 
first S in y always corresponds to the first S in x, the second S in y to 
the second in x, etc. " 
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expression matched by x, e.g. (R LONGATOM 'S) changes LONGATOM to 'LONGATOM, 
(R (SETQ X &) (PRINT $)) changes every (SETQ X &) to (PRINT (SETQ X &)). 06 

Since (R $x$ $y$) is a frequently used Operation for replacing characters, the 
following command is provided: 

(RC x y) equivalent to (R $x$ Sy$) 

R and RC change all instances of x to £. The coomands RI and RC1 are available 
for changing just one, (i.e. the first) instance of x to y. 

(RI x y) find the first instance of x and replace it by y. 

(RC1 x y) (RI SxS SyS). 

In addition, while R and RC only operate within the current expression, RI and 
RC1 will continue searching, a la the F command, until they find an instance of 
x, even if the search carries thein beyond the current expression. 


(SW n m) 


switches the nth and mth elements of the current 
expression. 


For example, if the current expression is 

(LIST (CONS (CAR X) (CAR Y)) (CONS (CDR X) (CDR Y))), 

(SW 2 3) will modify it to be 

(LIST (CONS (CDR X) (CDR Y)) (CONS (CAR X) (CAR Y))). The relative Order of n 
and m is not important, i.e., (SW 3 2) and (SW 2 3) are equivalent. 


If x is a pattern containing an alt-mode pattern somewhere within it, the 
characters matched by the alt-modes are not available, and for the purposes 
of replacement, the effect is the same as though x did not contain any alt- 
modes. For example, if the user types (R (CAR F$) (PRINT $)), the second S 
will refer to the entire expression matched by (CAR FS). 
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SW uses the generalized NTH command to find the 
nth and mth elements, a la the BI-BO commands. 

Thus ln the previous example, (SW CAR COR) would produce the same result. 


9.5 Commands That Print 


PP prettyprints the current expression. 

P prints the current expression as though printlevel 

were set to 2. 

(P m ) prints mth element of current expression as though 

printlevel were set to 2. 

(P 0) saue as P 

(P m n ) prints mth element of current expression as though 

printlevel were set to n. 

( p 0 n ) prints current expression as though printlevel 

were set to n. 

7 saue as (P 0 100) 

Both (P m) and (P m n) use the generalized NTH command to obtain the 

corresponding element, so that m does not have to be a number, e.g. (P COND 3) 

will work. PP causes all comments to be printed as «»COMMENT** (see Section 
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14). P and ? print as **COMMENT** only those comments that are (top level) 
elements of the current expression. 67 

PP* prettyprints current expression, including 

comments. 

PP* is equivalent to PP except that it first resets **conuaent**flg to NIL (see 
Section 14). In fact, it is defined as (RESETVAR **COMMENT**FLG NIL PP), see 
page 9.77. 

PPV prettyprints current expression as a variable, 

i.e. no special treatment for LAMBDA, COND, SETQ, 
etc., or for CLISP. 

PPT prettyprints current expression, printing CLISP 

translations, if any. 

All printing functions print to the teletype, regardless of the primary output 
file. No printing function ever changes the edit chain. All record the 
current edit chain for use by \P„ page 9.35. All can be aborted with 
control-E. 
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Lower expressions are not really seen by the editor; the printing cororoand 
sitnply sets printlevel and calls print . 


9.6 Commands That Evaluate 


onlu when typed in, 68 causes the editor to call 
jjspx glving it the next Input as argument.®® 


Example: *E BREAK(FIE FUM) 

(FIE FUM) 

*E (FOO) 

(FIE BROKEN) 

^ E evaluates x, i.e., performs eval[x], and prints 

the result on the teletype. 

^ E x saune as (E x) but does not print. 

The (E x) and (E x T) commands are mainly lntended for use by macros and 
subroutine calls to the editor; the user vrould probably type in a form for 
evaluation using the more convenient formet of the (atomic) E comnand. 

(I c Xj ... x n ) saue as (C y } ... y R ) where y 1 *eval[x 1 ]. 

Example: (I 3 (6ET0 (QUOTE FOO))) will replace the 3rd element of the current 
expression with the definition of foo/° (I N FOO (CAR FIE)) will attach the 
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e.g, (INSERT 0 BEFORE E) will treat E as a pattern, and search for E. 
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is used by eyalqt and break for Processing teletype inputs. If 

elS i 6 j iS typ ® d °" the same line » Uspx evaluates its argument. 
Otherwise, lipx applies it to the next input. In both cases. lisox prints 
the result. See above example, and Sections 2 and 22. - 
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Th ® * command sets an internal flag to indicate to the structur« 
modification commands not to copy expression(s) when inserting, replacing, 
or axtacning. 
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value of foo and car of the value of fie to the end of the current expression. 
(I F» FOO T) will search for an expression e§ to the value of foo . 

If c is not an atom, c is evaluated also. 

Example: (I (COND ((NULL FLG) (QUOTE -1)) (T I)) FOO), if flfl is NIL, inserts 
the value of foo before the first element of the current expression, otherwise 
replaces the first element by the value of foo . 

##[coni|;com 2 ; ... ;com n ] is an NLAMBDA, NOSPREAD function (not a command). 

Its value is what the current expression would be 

after executing the edit coiranands conij ... com n 

starting from the present edit Chain. Generates 

an error if any of con»j thru com n cause errors. 

71 

The current edit chain is never changed. 

Example: (I R (QUOTE X) (## (CONS .. Z))) replaces all X's in the current 
expression by the first cons containing a Z. 

The I command is not very convenient for computing an entire edit command for 
execution, since it computes the command name and its arguments separately. 
Also, the I command cannot be used to compute an atomic command. The following 
two commands provlde more general ways of computing commands. 

(COMS Xj ... x |1 ) Each x^ is evaluated and its value is executed as 

a command. 


Recall that A, B, INSERT, REPLACE, and CHANGE make special checks for ## 
forms in the expressions used for inserting or replacing, and use a copy of 
## form instead (see page 9.43). Thus, (INSERT (## 3 2) AFTER 1) is 
äquivalent to (I INSERT (COPY (## 3 2)) (QUOTE AFTER) 1). 
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For example, (COMS (COND (X (LIST 1 X)))) will replace the first element of the 
current expression with the value of x if non-NIL, otherwise do nothing. 7,2 

(COMSQ conij ... cora n ) executes couij ... com n . 

COMSQ is mainly useful in conjunction with the COMS command. For example, 
suppose the user wishes to compute an entire list of commands for evaluation, 
as opposed to computing each command one at a time as does the COMS command. 
He would then write (COMS (CONS (QUOTE COMSQ) x)) where x computed the list of 
commands, e.g., (COMS (CONS (QUOTE COMSQ) (GETP F00 (QUOTE COMMANDS)))). 


9.7 Commands That Test 

x ) generates an error unless the value of evalfx] is 

true, i.e., if eval[x] causes an error or 
eval[x]*NIL, IF will cause an error. 

For some editor commands, the occurrence of an error has a well defined 
meaning, i.e., they use errors to branch on, as cond uses NIL and non-NIL. For 
example, an error condition in a location specification may simply me an "not 
this one, try the next." Thus the location specification 

(IPLUS (E (OR (NUMBERP (## 3)) (ERROR!)) T)) specifies the first IPLUS whose 
second argument is a number. The IF command, by equating NIL to error, 
provides a more natural way of accomplishing the same result. Thus, an 
equivalent location specification is (IPLUS (IF (NUMBERP (## 3)))). 
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because NIL as a command is a NOP, see page 9.70. 




The IF command can also ba used to select between two alternate llsts of 
commands for execution. 

(IF x comsj coms 2 ) If eval[x] is true, execute coms^; if eval[x] 

causas an arror or is equal to NIL, execute 

corosg. 

For example, tha command (IF (READP T) NIL (P)) will print the current 

expression provided the input buffer is empty. 

IF can also be written as: 

(IF x comsj) if eval[x] is true# execute coms^; otherwise 

generate an error. 

(LP . coms) repeatedly axecutes coms . a list of commands# 

until an error occurs. 

For example, (LP F PRINT (N T)) will attach a T at the end of every print 

expression. (LP F PRINT (IF (## 3) NIL ((N T)))) will attach a T at the end of 

each print expression which does not already have a second argument. 

When an error occurs, LP prints n OCCURRENCES. 


73 Thus IF is äquivalent to (COMS (C0N5 (QUOTE COMSQ) (CONO 

((CAR (NLSETQ (EVAL X))) COMS1) 

(T C0NS2)))). 


74 

i.e. the form (## 3) will cause an arror if the edit command 3 causes an 
error, thereby selecting ((N T)) as the list of commands to be executed. 
The IF could also be written as (IF (CDDR (##)) NIL (<N T))), 
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where n is the number of times coms was 
successfully executed. The edit chain is left as 
of the last complete successful execution of coms. 

(LPQ . coms) same as LP but does not print the message 

n OCCURRENCES. 

In order to prevent non-terminating loops, both LP and LPQ terminate when the 
number of iterations reaches maxloop , initially set to 30 . 76 Slnce the edit 
chain is left as of the last successful completion of the loop, the user can 
slmply continue the LP command with REOO (Section 22). 

(SHOW . x) x is a list of pätterns. SHOW does a LPQ printing 

all instances of the indicated expression(s), 
e.g. (SHOW FOO (SETQ FIE &)) will print all FOO's 
and all (SETQ FIE &)’s. Generates an error if 
there aren't any instances of the expression(s). 

(EXAM . x) like SHOW except calls the editor recursively 

(via the TTY: command described on page 9.70) on 
each instance of the indicated espression(s) so 
that the user can examine and/or change them. 

(ORR comsj ... coms n ) ORR begins by executing comsj, a list of commands. 

If no error occurs, ORR is finished. Otherwise, 
ORR restores the edit chain to its original value, 
and continues by executing coms 2 . etc. If none of 
the command lists execute without errors, i.e., 

maxloop can also be set to NIL, which is equivalent to infinity. 
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the ORR "drops off the end", ORR generates an 
error. Otherwise, the edit chain is left as of 
the completion of the first command list which 
executes without an error. 

For example, (ORR (NX) (tNX) NIL) will perform a NX, if possible, otherwise a 
!NX, if possible, otherwise do nothing. Similarly, DELETE could be written as 
(ORR (UP (1)) (BK UP (2)) (UP (; NIL))). 

9.8 Macros 


Many of the more sophisticated branching commands in the editor, such as ORR, 
IF, etc., are most often used in conjunction with edit macros. The macro 
feature permits the user to define new commands and thereby expand the editor's 
repertoire. 77 Nacros are defined by using the M command. 

7B 

(M c . coras) For c an atom, M defines c as an atomic command. 

Executing c is then the same as executing the list 
of commands coms . 

For example, (M BP BK UP P) will define BP as an atomic command which does 
three things, a BK, and UP, and a P. Nacros can use commands defined by macros 


70 NIL as a command list is perfectly legal, and will always execute 
successfully. Thus, making the last 'argument' to ORR be NIL will insure 
that the ORR never causes an error. Any other atom is treated as (atom), 
i.e., the above example could be written as (OR NX !NX NIL). 


77 

However built in commands always take precedence over macros, i.e., the 
editor's repertoire can be expanded, but not redefined. 


7H 

If a macro is redefined, its new definition replaces its old. 
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as well as bullt in commands in their definitions. For example, suppose Z ls 
defined by (M Z -1 (IF (READP T) NIL (P))), i.e. Z does a -i, and then if 
nothing has been typed, a P. Now we can define ZZ by 
<M ZZ -1 Z), and ZZZ by (M ZZZ -1 -1 Z) or (M ZZZ -1 ZZ). 

Nacros can also define list commands, i.e., commands that take arguments. 

(M (c) (argj ... arg n ) . coms) c an atom. M defines c as a list command. 

Executing (c Oj ... e n ) is then performed by 
substituting e t for argj, • • • ® n for arg n 
throughout coms . and then executing coms . 

For example, we could define a more general BP by <M (BP) (N) (BK N) UP P). 
Thus, (BP 3) would perform (BK 3 ), followed by an UP, followed by a P. 

A list command can be defined via a macro so as to take a fixed or indefinite 
number of 'arguments', as with spread vs. nospread functions. The form given 
above specified a macro with a fixed number of arguments, as indicated by its 
argument list. If the ’argument list' is atomic, the command takes an 
indefinite number of arguments . 70 

(M (c) arg . coms) c, arg both atoms, defines c as a list command. 

Executing (c e t ... e n ) is performed by 
substituting (ej ... e n ), i.e., cdr of the 
command, for arg throughout coms . and then 
executing coms . 

For example, the command 2ND, page 9.30, can be defined as a macro by 
(M (2ND) X (ORR ((LC . X) (LC . X)))). 

----- --------- ------- 

Note parallelism to EXPR's and EXPR*'s. 
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Note that for all editor commands, 'bullt in' cotnmands as well as commands 
defined by macros, atomic definitlons and list definitlons are completelp 
Independent. In other words, the existence of an atomic definition for c in no 
way affects the treatment of c when it appears as car of a list command, and 
the existence of a list definition for c in no way affects the treatment of c 
when it appears as an atom. In particular, c can be used as the name of either 
an atomic command, or a list command, or both. In the latter case, two 
entirely different definitlons can be used. 

Note also that once c is defined as an atomic command via a macro definition, 
it will not be searched for when used in a location specification, unless it is 
preceded by an F. Thus (INSERT — BEFORE BP) would not search for BP, but 
instead perform a BK, and UP, and a P, and then do the insertion. The 
corresponding also holds true for list commands. 

Occasionally, the user will want to employ the S command in a macro to save 
some temporary result. For example, the SW command could be defined as: 

(M (SW) (N M) (NTH N) (S F00 1) MARK 0 (NTH M) (S FIE 1) - n 
(I 1 FOO) «-♦• (I 1 FIE)) av 

Since this version of SW sets foo and fie, using SW may have undesirable side 
effects, especially when the editor was called from deep in a computatlon, we 
would have to be careful to raake up unique names for dummy variables used in 
edit macros, which is bothersome. Furthermore, it would be impossible to 
define a command that called itself recursively while setting free variables. 
The BIND command solves both Problems. 


Ort 

A more elegant definition would be: 

(M (SW) (N M) (NTH N) MARK 0 (NTH M) (S FIE 1) (I 1 (## - 1)) 
«-«-(II FIE)), but this would still use one free variable. 
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(BIND . coras) 


binds three dummy variables #i, #2, # 3 , 

(lnitialized to NIL), and then executes the edit 
commands cows . Note that these bindings are only 
in effect while the commands are being executed, 
and that BIND can be used recursively; it will 
rebind #i, #2, and #3 each time it is invoked.®* 

Thus we could now write SW safely as: 

(M (SW (N M) (BIND (NTH N) (S #1 1) MARK 0 (NTH M) (S #2 i) 

(I 1 #1) «- (I 1 #2)))). 

User macros are stored on a list usermacros. The prettydef command USERMACROS 
(Section 14), is available for dumping all or selected user macros. 


9.9 Miscellaneous Conanands 


NIL unless preceded by F or BF, is always a NOP. Thus 

extra right parentheses or square brackets at the 
ends of commands are ignored. 

TTY: calls the editor recursively. The user can then 

type in commands, and have them executed. The 
TTY: command is completed when the user exits from 
the lower editor. (see OK and STOP below). 

The TTY: command is extremely useful. It enables the user to set up a complex 

Operation, and perform Interactive attention-changing commands part way through 
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BIND is implernented by (PROG (#1 #2 #3) (EDITCOMS (CDR COM))) where com 
corresponds to the BIND command, and editcoms is an internal editor 
function which executes a list of commands. 
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it. For example the command (HOVE 3 TO AFTER COND 3 P TTY:) allows the user to 
interact, in effect, mithin the MOVE command. Thus he can verify for himself 
that the correct location has been found, or complete the specification ”by 
hand.” In effect, TTY: says "I'll teil you what you should do when you get 
there." 

The TTY: command operates by printing TTY: and then calling the editor. The 
initial edit chain in the lower editor is the one that existed in the higher 
editor at the time the TTY: command was entered. Until the user exits fron the 
lower editor, any attention changing comroands he executes only affect the lower 
editor's edit chain .^ When the TTY: command finishes, the lower editor's edit 
chain becomes the edit chain of the higher editor. 


OK exits from the editor 

STOP exits from the editor with an error. Hainly for 

use in conjunction with TTY: commands that the 
user wants to abort. 

Since all of the commands in the editor are errorset protected, the user must 
exit from the editor via a command.STOP provides a way of distinguishing 
between a successful and unsuccessful (from the user's standpoint) editing 
session. For example, if the user is executing (MOVE 3 TO AFTER COND TTY:), 
and he exits from the lower editor with an OK, the HOVE command will then 


op 

Of course, if the user performs any structure modification commands while 
under a TTY: command, these will modify the structure in both editors, 
since it is the same structure. 


oo 

° ■ Or by typing a control-D. STOP is preferred even if the user is editing at 
the evalqt level, as it will perform the necessary 'wrapup* to insure that 
the changes made while editing will be undoable (see Section 22). 
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complete its Operation. If the user wants to abort the MOVE command, he must 
mähe the TTY: command generata an error. He does this by exiting from the 
lovrer editor with a STOP command. In this case, the higher editor's edit Chain 
will not be changed by the TTY: cooanand. 


exits from the editor and saves the 'state of the 
edit' on the property list of the function or 
variable being edited under the property 
EDIT-SAVE. If the editor is called again on the 
same structure, the editing is effectively 
"continued," i.e., the edit chain, mark list, 
value of unfind and undolst are restored. 


For example: 

*P 

(NULL X) 

*F COND P 

(COND (& &) (T &)) 

•SAVE 

FOO 


«-EDITF(FOO) 

EDIT 

*P 

(COND (& &) (T &)) 

*\ P 
(NULL X) 


SAVE is necessary only if the user is editing many different expressions; an 
exit from the editor via OK always saves the state of the edit of that call to 
the editor. Whenever the editor is entered, it checks to see if it is editing 
the same expression as the last one edited. In this case, it restores the mark 
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on the property list of the atom EDIT, 
OK also retnprops EDIT-SAVE from the 
variable being edited. 


under the property name LASTVALUE. 
property list of the function or 
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list, tha undolst, and sets unfind to be th# tdit chain as of tha pravious axit 


fron tha aditor. For example: 


«-EDITF(FOO) 

EDIT 

*P 

(LAMBDA (X) (PR06 & & LP «t «t * &)) 


*P 

(COND & &) 

*0K 

FOO 


any nuabar of lispx inputs 
axcapt for calls to tha aditor 

*-EDITF(FOO) 

EDIT 

*P 

(LAMBDA (X) (PR06 ULPUU)) 

*\ P 

(COND & &) 


Furthermore, as a result of tha history faatura (saction 22), if tha aditor is 

agjr 

called on tha same expression within a cartain nuabar of lispx inputs, tha 
state of tha edit of that exprassion is rastorad, ragardless of how »any othar 
expressions »ay hava baan aditad in tha naantiaa. 


S5 


Naraely, tha siza of tha history list, initially 30, but it can ba increasad 
by tha usar. 



For exaraple: 


-EDITF(FOO) 

EOIT 

* 


*P 

(COND (& 4) (4 4) (4) (T j,)) 

*OK 

FOO 

” * less than 30 lispx inputs, including editing 

-EDITF(FOO) 

EDIT 
*\ P 

(COND (4 &) (4 4) (4) (T 4)) 

Thus the user can always continue editing, including undoing changes front a 
previous editing Session, if 

(1) No other expressions have been edited since that session;^ or 

(2) That session was “sufficiently' recent; or 

(3) It was ended with a SAVE conmand. 


is an edit macro defined as UP followed by 
(I 1 (U-CASE (## 1))), i.e. it raises to upper- 
case the current expression, or if a tail, the 
first element of the current expression, 

Sintilar to RAISE, except uses 1-case. 


RAISE 


LOWER 
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Since saving takes place 
via control-D or exited 
this last session. 


at exit time, intervening 
via STOP will not affect 


calls that were aborted 
the editor's tnemory of 
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CAP First does a RAISE, and then lowors all but the 

first character, i.a. the first character is left 
capitalized. 

Hotel RAISE, LOWER, and CAP are all HOPs ij the c orresponding atom or String is 
alreadg in that state. 

(RAISE x) äquivalent to (IR (L-CASE x) x), i.e. changes 

every lower-case x to upper-case in the current 
expression. 

(LOWER x) similar to RAISE, except performs (I R x (L- 

CASE x)). 

Note in both (RAISE x) and (LOWER x), x is typed in in upper case. 


REPACK 


Permits the 'editing' of an atom or String. 


For example: 


*P 

... "THIS IS A LOGN STRING") 

REPACK 

"EDIT 

P 

(THISX ISX A % LOGNX STRING) 
*(SW G N) 

*OK 

"THIS IS A LONG STRING" 87 
* ' 


REPACK operates by calling the editor recursively on unpack of the current 


87 Note that this could also have been accomplished by (R SGNS SNGS) or simply 
(RC GN NG). 
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expression, or if it is a list, on unpack of its first element. If the lower 
editor is exited successfully, i.e. via OK as opposed to STOP, the list of 
atoros is made into a single atom or string, which replaces the atom or String 

being 'repacked.' The new atom or string is always printed. 

(REPACK 0) does (LC . 9) followed by REPACK, e.g. 

(REPACK THISS). 

* ; • 35 ^ the text of a comment. ; ascends the edit 

Chain looking for a 'safe' place to insert the 
coinment, e.g., in a cond clause, after a prog 
statenent, etc., and inserts (* . x) after that 
po:lnt, if possible, otherwise before. For 

exomple, if the current expression ls 
(FACT (SUB1 N)) in 
[COND 

((ZEROP N) 1) 

(T (ITIHES N (FACT (SUB1 N] 

(; CALL FACT RECURSIVELY) would insert 

<* CALL FACT RECURSIVELY) before the itimes 

expression. aa 


; does not change the edit chain, but unfind is 
set to where the comment was actually inserted. 

is used to join two neighboring COND's together, 
e.g. (COND clause^ clauseg) followed by 
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*u ftGr , the itimes, the comment would then be (incorrectly) 

h ValU ® ? T the However * lf the cond was itself a proo 

ZU? « hence ,. * ta value was not »>eing used, the coranent coulOe 
(and would be) inserted after the itimes expression. 
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becomes 


(SPLITC x 


CL 

DW 

(RESETVAR 


(COND clause^ clause^) 

(COND clause^ clause^ clause^ clause^). OOINC 

does an (F COND T) first so that you don't have to 
be at the first COND. 

splits one COND into two. x specifies the last 
clause in the first COND, e.g. (SPLITC 3) splits 
(COND clause^ clause^ clause^ clause 4 ) into 

(COND clause^ clause 2 ) (COND clause 3 clause 4 ). 
Uses generalized NTH command, so that x does not 
hava to be a number, e.g., the user can say 
(SPLITC RETURN), meaning split after the clause 
containing RETURN. SPLITC also does an (F COND T) 
first. 

Clispifies current expression. See Section 23. 

Dwimifies current expression. See Section 17 and 
23. 


var fona . coms) executes coms whiie var is reset to the value of 

form , and then restores var , i.e. effectively 
calls the function resetvar (Section 5). 
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9.10 UNDP 


Each command that causes structure modification autooatically adds an entry to 
the front of undolst that contains the Information required to restore all 
pointers that wero changed by that consnand. 

undoes the last, i.e. most recent, structure 
nodification command that has not yet been 

gg 

undone, and prints the name of that command, 
e.g., MBD UNDONE. The edit Chain is then exactly 
what it was before the 'undone' command had been 
performed. 0 ® If there are no commands to undo, 
UNDO types NOTHING SAVEO. 

* UND0 undoes all modificatlons performed during this 

editing session, i.e. this call to the editor. 
As each command is undone, its name is printed a 
la UNDO. If there is nothing to be undone, IUNOO 
prints NOTHING SAVED. 


Since UNDO and !UNDO cause structure modification, they also add an entry 
to undolst. However, UNDO eind !UND0 entries are skipped by UNDO, e.g., if 
the user performs an INSERT, and then an MBD, the first UNDO will undo the 
MBD, and the second will undo the INSERT. However, the user can also 
specify precisely which commands he wants undone by identifying the 
corresponding entry on the history list as described in Section 22. In 

rr.inr k case ' he can und0 an UND0 C0Bmar,d » 0-g. by typing UNDO UNDO, or undo a 
IUNDO command, or undo a command other than that most recently performed. 
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Undoing an event containing an I, E, or S command will also undo the side 
effects of the evaluation(s), e.g. undoing (I 3 (/NCONC FOO FIE)) will not 
only restore the 3rd element but also restore FOO. Similarly, undoing an S 
command will undo the set. See discussion of UNDO in Section 22. (Note 
that if the I command was typed directly to the editor, /NCONC would 
automatically be substituted for NCONC as described in Section 22.) 
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Whenever the user continues an edlting sassion as described on page 9.72-74, 
the undo Information of tha pravious sassion is protacted by inserting a 
special blip, called an undo-block, on tha front of undolst . This undo-block 
will terminata the Operation of a IUN00, thereby confining its affect to the 
current session, and will similarly prevant an UNDO command fron operating on 
commands executed in tha pravious session. 

Thus, if tha user enters tha editor continuing a session, and immediately 
executes an UNDO or !UNDO, tha editor will type BLOCKED instead of 
NOTHING SAVED. Similarly, if the user exacutes several commands and then undoes 
them all, anothar UNDO or IUNDO will also cause BLOCKED to be typad. 

UNBLOCK removes an undo-block. If executed at a non- 

blocked state, i.e. if UNDO or IUNDO coutd 
operate, types NOT BLOCKED. 

TEST adds an undo-block at the front of undolst . 

Note that TEST togethar with IUNDO provide a 'tentative* mode for edlting, i.e. 
the user can perform a number of changes, and then undo all of them with a 
single IUNDO command. 
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9.11 Editdefault 


Whenever a command is not recognized, i.e., is not 'bullt in' or defined as a 
macro, tho edltor calls an internal function, editdefault . to determine what 
action to take. 9 * If a location specification is being,executed, an internal 
flag informs editdefault to treat the command as though it had been preceded by 
an F. 

If the command is a list, an attempt is made to perform spelling correction on 
car of the command 92 using editcorosl . a list of all list edit commands. 93 If 
spelling correction is successful, 9 ^ the correct command name is rplaca ed into 
the command, and the editor continues by executing the command. 
In other words, if the user typas (LP F PRINT (MBBD AND (NULL FLG))), only one 
spelling correction will be necessary to change MBBD to MBD. If spelling 
correction is not successful, an error is generated. 

If the command is atomic, the procedure followed is a little more elaborate. 


3 *” ce editdefault is part of the edit block, the user cannot advise or 
redefine it as a means of augmenting or extending the editor. HoWever, the 
user can accomplish this via edituserfn . If the value of the variable 
edituserfn is T, editdefault calls the function edituserfn giving it the 
command as an argument. If edituserfn returns a non-NIL value, its value 
is interpreted as a single command and executed. Otherwise, the error 
correction procedure described below is performed. 


unless dwimflg=NIL. See Section 17 for discussion of spelling correction. 


When a macro is defined via the M command, the command name is added to 
gditcomsa or editcomsl . depending on whether it is an atomic or list 
command. The prettydef command USERMACROS (Section 14), is aware of this, 
and provides for restoring edltcomsa and editcomsl. 


Throughout this discussion, if the command was not typed in directly, the 
user will be asked to approve the spelling correction. See Section 17. 
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1 ) If the command is one of the list commands, i.e., a member of editcomsl , 
and there is additional input on the same teletype line, treat the entire 
line as a single list command. 96 Thus, the user may omit parentheses for 
any list command typed in at the top level (provided the command is not 
also an atomic command, e.g. NX, BK). For example, 

*P 

(COND (8c &) (T &)) 

*XTR 3 2] 

*MOVE TO AFTER LP 
* 

If the command is on the list editcomsl but no additional input is on the 
teletype line, an error is generated, e.g. 

*P 

(COND (8c 8t) (T 8c)) 

*MOVE 

HOVE? 

ft 

If the command is on editcomsl . and not typed in directly, e.g. it appears 
as one of the commands in a LP command, the procedure is similar, with the 
rest of the command stream at that level, being treated as 
"the teletype line", e.g. 

(LP F (COND (T 8c)) XTR 2 2). 90 

2) If the command was typed in and the first character in the command is an 8, 


96 The line is read using readline (Section 14). Thus the line can be 
terminated by a square bracket, or by a carriage return not preceded by a 
space. 


96 Note that if the command is being executed in location context, editdefault 
does not get this far, e.g. (MOVE TO AFTER COND XTR 3) will search for XTR, 
not execute it. However, (MOVE TO AFTER COND (XTR 3)) will work. 
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treat the 8 as a mistyped left parenthesis, and and the rast of the line as 
the arguments to the command, e.g., 


*P 

(COND (& &) (T &)) 

*0-2 (V (RETURN Z))) 

= ( “2 
*P 

(COND (Y &) (& &) (T &)) 


3) If the command was typed in, is the name of a function, and is followed by 
NIL or a list car of which is not an edit command, assume the user forgot 
to type E and means to apply the function to its arguments, type «E and the 
function name, and perform the indicated computation, e.g. 


*BREAK(FOO) 
=E BREAK 
(FOO) 

* 


4) If the last character in the command is P, and the first n-1 characters 
coraprise a number, assume that the user intended two commands, e.g., 


*P 

(COND (& &) (T &;>) 

*0P 

=0 P 

(SETQ X (COND & «<)) 


5) Attempt spelling correction using editcomsa . and if successful,® 7 execute 
the corrected command. 

6 ) Otherwise, if there is additional input on the same line, or comnand 
stream, spelling correct using editcomsl . e.g.. 
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See footnote on page 9.81. 




*MBBD SETQ X 

=HBO 

* 

7) Otherwise, generate an error. 

9.12 Editor Functions 

edite[expr;coms;ataO edits an expression. Its value is the last 

element of editl[list[expr];coms;atm]. Generates 
an error if expr is not a list. 

edltlC 1 ;coms;atm;mess] editl g a U the editor. Its first argument is the 

edit Chain, and its value is an edit Chain, namely 

QQ 

the value of 1 at the time editl is exited. 

coros is an optional list of cotnmands. For 
Interactive editing, coms is NIL. In this case, 
editl types EDIT and then waits for input fron 
teletype. igg Exit occurs only via an OK, STOP, or 
SAVE command. 

If coms is not NIL, no message is typed, and each 


98 edit-eU, not edit-one. 

99 1 is a specvar, and so can be examined or set by edit contmands. For 
example, t is equivalent to (E (SETQ L (LAST L)) T). However, the user 
should only manipulate or exanine 1 directly as a last resort, and then 
with caution. 


100 If mess is not NIL, editl types it instead of EDIT. For example, the TTY: 
command is essentially (SETQ L (EDITL L NIL NIL (QUOTE TTY:))). 
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member of coms is treated as a command and 
executed. If an error occurs in the execution of 
one of the commands, no error message is printed, 
the rest of the commands are ignored, and editl 
exits with an error, i.e. the effect is the same 
as though a STOP conanand had been executed. If 
all commands execute successfully, editl returns 
the current value of 1. 


atm is optional. On calls frora editf . it is the 
name of the function being edited; on calls from 
gditv , the name of the variable, and calls fron 
edit£, the atom whose property list is being 
edited. The property list of atm is used by the 
SAVE command for saving the state of the edit. 
Thus SAVE will not save anything if atm»NIL. i.e. 
when editing arbitrary expressions via edite or 
editl directly. 


editlOC1;coms;mess;editlflg]*®* like editl except does not rebind or 

initialize the editor’s various state variables, 
such as lastail . unfind . undolst . markist , etc. 


editf[x] 


nlambda, nospread function for edit ing a function. 
car[x] is the name of the function,cdr[x] an 
optional list of commands. For the rest of the 
discussion, fn is carfx], and coms is cdr[xj. 
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(1) In the most common case, fn is an expr, and editf simply performs 

putd[fn;edite[getd[fn];coms;fn]]. 

(2) If fn is not an expr, but has an EXPR property, editf prints PROP, and 

performs edite[getp[fn;EXPR];coms;fn]. If edite returns (i.e. if the 

editing is not terminated by a STOP), and some changes were made, editf 
performs unsavedef[fn], prints UNSAVEO, and then does putd[fn;value-of- 

edite]. 


(3) If fn is neither an expr nor has an EXPR property, but its top level value 
is a list, editf assumes the user meant to call editv , prints =EDITV, calls 
editv and returns. Similarly, if fn has a non-NIL property list, editf 
prints «EDITP, calls editp and returns. 

(4) If JQi is neither a function, nor has an EXPR property, nor a top level 
value that is a list, nor a non-NIL property list, editf attempts spelling 

ino 

correction using the spelling list userwords , and if successful, goes 
back to (1). 

Otherwise, editf generates an fn NOT EDITABLE error. 

If editf ultimately succeeds in finding a function to edit, i.e. does not exit 
by calling editv or editp , editf calls the function addspell after editing has 
been completed.* 03 Addspell 'notices' fn, i.e. sets lastword to fn, and adds fn 


1Ö2 

Unless dwimflg =NIL. Spelling correction is performed using the function 
misspelled? . If fn=NIL, misspelled? returns the last ’word' referenced, 
e.g. by defineq , editf , prettyprint etc. Thus if the user defines foo and 
then types editf[], the editor will assume he meant foo , type »FOO, and 
then type EOIT. See Section 17. 


4Q O 

Unless dwimflg aNIL. addspell is described in Section 17. 
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to the ®PP r °P»'iate spelling lists. If any changes were made, editf also calls 
newfile? , which performs tha updating for the file package as described ln 
Section 14. 

editv[editvx] nl.ambda, nospread function, slmllar to editf , for 

editing yalues. car[edltvx] specifies the value, 
cclr[editvx] is an optional list of commands. 

If car[editvx] is a list, it is evaluated and its value given to edite . e.g. 

EDITV((CDR (ASSOC (QUOTE F00) DICTIONARY)))). In this case, the value of edltv 
is T. 

However, for nost applications, carteditvx] is a variable name, i.e. atomic, as 
in EDITV(FOO). If the value of this variable is NOBIND, editv checks to see if 
it is the name of a function, and if so, assumes the user meant to call editf . 
prints «EDITF, calls editf and returns. Otherwise, editv attempts spelling 
correction using the list usermrös . 104 Then editv will call edite on the value 
of car[editvx] (or the corrected spelling thereof). Thus, if the value of foo 
is NIL, and the user performs (EDITV FOO), no spelling correction will occur, 
since foo is the name of a variable in the user's System, i.e. it has a value. 
However, edi te will generate an error, since foo's value is not a list, and 
hence not editable. If the user performs (EDITV F000), where the value of fooo 
is NOBIND, and foo is on the user's spelling list, the spelling corrector will 
correct FOOO to FOO. Then edite will be called on the value of foo. Note that 
this may still result in an error if the value of foo is not a list. 

When (if) edite returns, editv sets the variable to the value returned. and 
calls addspell and newfile? . 


104 


SiriDmff^m L .diTT^f. 11 * lso caUed if “*•*«»*] Nil-’.’ 


so 
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The value of editv is the name of the variable whose value was edited. 

editp[x] nlambda, nospread function, similar to editf for 

edit ing property lists. If the property list of 
car[x] is NIL, editp attempts spelling correction 
using userwords . Then editp calls edite on the 
property list of car[x], (or the corrected 
spelling thereof). When (if) edite returns, editp 
rplacd 's car[x] with the value returned, and calls 
addspell . 

The value of editp is the atom whose property list 
was edited. 

editfnsCx] nlambda, nospread function, used to perform the 

same editing operations on several functions. 
car[x] is evaluated to obtain a list of functions. 
cdr[x] is a list of edit commands. editfns maps 
down the list of functions, prints the name of 
each function, and calls the editor (via editf ) on 
that function . 105 

For example, EOITFNS(FOOFNS (R FIE FUM)) will change every FIE to FUM in each 

of the functions on foofns . 

The call to the editor is errorset protected, so 


i.e. the definition of editfns might be: 

[MAPC (EVAL (CAR X)) (FUNCTION (LAMBOA (Y) 
(APPLY (QUOTE EDITF) 

(CONS (PRINT Y T) (CDR X] 
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that if the editing of one function causes an 
error, editfns will proceed to the next 
function.* tf@ 

Thus in the above example, if one of the functions did not contain a FIE, the R 
command would cause an erroir, but editing would continue with the next 
function. 


The value of editfns is NIL. 

edit4e[pat;x;changeflg] is the pattern match routine. Its value is T if 

pat -matches x. See page 9.21-23 for definition of 
'match' 

Note; before each search Operation in the editor begins, the entire pattern is 
scanned for atoms or strings containing alt-modes. These are replaced by 
Patterns of the form (CONS (QUOTE $) (UNPACK atom/string)) for 6a, and 
(CONS (QUOTE SS) (CONS (NCHARS atom/string) (UNPACK atom/string))), for 6b. /ÖS 
Thus from the standpoint of edit4e, pattern type 6a is indicated by car[pat] 
being the atom S (S is alt-mode) and pattern type 6b by car[pat] being the atom 
S$ (double alt-mode). 


In particular, if an error occurred while editing a function via its EXPR 
property, the function would not be unsaved. In other words, in the above 
example, only those functions which contained a FIE, i.e. only those 
actually changed, would be unsaved. 


107 changeflg is for internal use by the editor. 


108 

In latter case, atom/string corresponds to the atom or string up to but not 
including the final two-alt-modes. In both cases, dunpack is used wherever 
possible. -- 
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Therefore, if the user wishes to call edit4e directly, he must first convert 


any patterns which contain atoms or strings ending in alt-modes to the form 
recognized by edit4e. This is done with the function editfpat . 

editfpat[pat;flg] makes a copy of £at with all patterns of type 6 

iOQ 

converted to the form expected by edlt4e . 

editfindp[x;pat;flg] allows a program to use the edit find command as a 

pure predicate from outside the editor. x is an 
expression, pat a pattem. The value of editfindp 
is T if the command F pat would succeed, NIL 

otherwise. editfindp calls editfpat to convert 
pat to the form expected by edit4e , unless flg *T. 
Thus, if the program is applying editfindp to 

several different expressions using the same 
pattern, it will be more efficient to call 
editfpat once, and then call editfindp with the 
converted pattern and flg«T. 

esubst[x;y;z;errorflg;charflg] equivalent to performing (R y x)** 0 with z as 

the current expression, i.e. the order of 
arguments is the same as for subst . Note that y; 
and/or x can employ alt-modes. The value of 

esubst is the modified z. Generates an error*** 


* ö ® flg =T is used for internal use by the editor. 

110 unless charflg gf. in which case it is equivalent to (RC y x). See page 
9.59. 

*** of the type that never causes a break. 
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If y not found in z. If errorfla «T. also prints 
an error nessage of the form y ?• 

esubst is always undoable. 

changename[fn;from;to] replaces all occurrences of from by to in the 

definition of fn. If fn is an expr, changename 
performs nlsetq[esubst[to;from;getd[fn]]]. If fn 
is compiled, changename searches the literals of 
fn (and all of its Compiler generated 
subfunctions), replacing each occurrence of from 
with to. ltz 

The value of changename is fn if at least one 
instance of from was found, otherwise NIL. 

ch angename is used by break and advlse for changing calls to fnl to calls to 
fnl-IN-fn2 . 

editracefn[com] is available to help the user debug complex edit 

macros, or subroutine calls to the editor. If 
editracefn is set to T, the function editracefn is 
called whenever a command that was not typed in by 
the user is about to be executed, giving it that 
command as its argument. However, the TRAGE and 
BREAK options described below are probably 
sufficient for most applications. 
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ca 11 S t U h» G r a d in lf 1 is called frora In via a linked call, 
case, the call will also be relinked to call to instead. 


In this 
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If editracefn iS set to TRACE, the name of the 
command and the current expression are printed. 
If editracefn=BREAK, the same Information is 
printed, and the editor goes into a break. The 
user can then examine the state of the editor. 

editracefn is initially NIL. 
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Index for Section 9 


Page 

Numbers 

(A el ... em) (edit command) . 9.13,39-40 

ADDSPELL[X;SPLST;N] . 9.85-87 

AFTER (ln INSERT command) (in editor) . 9.41 

AFTER (in MOVE command) (in editor) ....,. 9.48 

(B el ... em) (edit command) ... 9.13,39-40 

BEFORE (in INSERT command) (in editor) .. 9.41 

BEFORE (in MOVE command) (in editor) .. 9.48 

(BELOW com x) (edit command) ..... 9.31 
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(BF pattern T) (edit command) . 9.28 

(BI n m) (edit command) . 9.8,52 

(BI n) (edit command) . 9.52 

(BIND . coms) (edit command) . 9.70 

BK (edit command) ... 9.10,18-19 

(BK n) (n a number, edit command) . 9.19 

BLOCKED (typed by editor) .. 9.79 

(BO n) (edit command) ... 9.8,52 

BY (ln REPLACE command) (in editor) . 9.42 

CAN'T - AT TOP (typed by editor) . 9.5,17 

CAP (edit command) . 9.75 

(CHANGE @ TO ...) (edit command) ... 9.4'2 

CMANGENAME[FN;FROH;TO] . 9.90 

CL (edit command) . 9,77 

commands that move parentheses (in editor) . 9.51-54 

(COMS xl ... xn) (edit command) . 9.63 

(COMSQ . coms) (edit command) . 9.64 

continuing an edit session . 9.72-74 

control-D . 9.71 

control-E . 9.3 

current expression (in editor) . 9.2,4,8,11-15,23 

DELETE (edit command) ... 9.14,37,40,42 

(DELETE . @) (edit command) . 9.42 

DESTINATION IS INSIDE EXPRESSION BEING MOVED 

(typed by editor) . 9.49 

DW (edit command) ... 9.77 

DWIMFLG (system variable/parameter) . 9.80,85-86 

E (edit command) ... 9.9,62 

(E x T) (edit command) . 9.62 
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SECTION 10 


ATOM, STRING, ARRAY, AND STORAGE MANIPULATION 


10.1 Pnames and Atom Manipulation 

The term 'print name' (of an atora) ln LISP 1.5 referred to the characters that 
were output whenever the atort was printed. Since these characters were stored 
on the atoa's property list under the property PNAME, pname was used 
interchangeably wlth ’print name'. In INTERLISP, all pointers have pnaaes , 
although only literal atoms and strlngs have their pname explicitly stored. 

The pname of a pointer are those characters that are output when the pointer is 
printed using prinl , 

e.g., the pname of the atom ABCX(D* conslsts of the flve characters ABC(D. The 
pname of the list (A B C) conslsts of the seven characters (ABC) (two of the 
characters are spaces). 

Sometimes we will have occasion to refer to the prin2-pnarae . 

The prin2-pname are those characters output when the corresponding pointer is 
printed using prin2 . 

Thus the prin2-pname of the atom ABCX(D is the six characters ABCX(D. Note that 
the pname of numbers depends on the setting of radix . 


X is the escape character. See Sections 2 and 14. 
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packtx] 


If x is a list of atoms, the value of pack is a 
single atom whose pname is the concatenation of 
the pnaroes of the atoms in x, e.g. 
pack[(A BC OEF G)]=ABCDEFG. 

If the pname of the value of pack[x] is the same 
as that of a number, packtx] will be that number, 
e.g. pack[(1 3.4)>13.4, 
packt(1 E -2)>.01. 

Although x is usually a list of atoms., it can be a 
list of arbitrary INTERLISP pointers. The value 
of pack is still a single atom whose pname is the 
same as the concatenation of the pnames of all the 
pointers in x, e.g. 

packt((A B)"CD")] - %<A% BX)C0. 

In other words, mapc[x;prinl] and prinltpacktx]] 
always produce exactly the same output. In fact, 
pack actually operates by calling prinl to convert 
the pointers to a stream of characters (without 
printing) and then makes an atom out of the 
result. 

Kote* atoms are restricted to < 99 characters. Attempting to create a larger 
ertom either via pack or by typing one in (or reading from a file) will 
cause an error, ATOM TOO LONG. 


unpacktx;flg] 


The value of unpack is the pname of x as a list of 
characters (atoms), 2 e.g. 


2 ------ 

There are no special 'character-atoms' in INTERLISP, i.e. an atom 
consisting of ä single character is the same as any other atom. 
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unpack[ABC] «(ABC) 
unpack[*ABC(D"] * (A B C X( 0) 

In other words prinl[x] and mapc[unpack[x];prinl] 
produce the same output. 

If IJjpT. prin2-pname of x is used, e.g. 

unpack[■ABC(D";T]* (X" A B C X< D X"). 


Notei unpack[xj performs n c onses, uhere n is the number of characters in the 
pname of x. 

dunpack[x; scratchlist ;f lg] a destructive Version of unpack that does not 

perforo any conses but instead uses scratchlist to 
make a list equal to unpack[x;flg]. If the p-name 
is too long to fit in scratchlist , dunpack calls 
unpack and returns unpack[x;flg]. Gives an error 
if scratchlist is not a list. 

nchars[x;flg] number of characters in pname of x. a If flg «T. the 

prin2-pname is used. E.g. nchars[ H ABC” ]»3, 
nchars["ABC";T]»5. 

nthchar[x;n;flg] Value is nth character of pname of x. Equivalent 

to car[nth[unpack[x;flg];n]] but fester and does 
no conses . n can be negative, in which case 
counts from end of pname . e.g. -1 re fers to the 


Both nthchar and nchars work much faster on objects that actually have an 
internal representation of their pname, i.e. literal atoms and strings, 
than they do on numbers and lists, as they do not have to simulate 
printing. 
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packc[x] 


chcon[x;flg] 


chconl[x] 


dchcon[x;scratchlist 

character[n] 


fcharactertn] 

gensym[char] 


See footnote 2. 


last character, -2 next to last, etc. If n is 
greater than the number of characters in the 
pnaine, or less than minus that number, or 0, the 
value of nthehar is NIL. 

like pack except x is a list of (ASCII) character 
codes, e.g. packet(70 79 79)]=FOO. 

like unpack . except returns the pname of x as a 
list of (ASCII) character codes, e.g. 
chcontFOO] ■ (70 79 79). If flg »T, the prin2-pname 
is used. 

returns character code of first character of pnaine 
of x, e.g. chconltFOO] = 70. Thus chconfx] could 
be »»ritten as mapcartunpacktx];chconi]. 

flg] similar to dunpack 

n is an ASCII character code. Value is the atom 
having the corresponding single character as its 
pname , 4 e.g. charactert70] * F. Thus, unpacktx] 
could be written as mapcartchcontx];character]. 

fast Version of character that compiles open. 

Geneirates a new atom of the form xnnnn, where 
x=char (or A if char is NIL) in which each of the 
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n's is a digit. Thus, the first one generated is 
A0001, the second A0002, etc. gensym provides a 
way of generating new atoms for various uses 
within the System. The value of gennum . initially 
10000, determines the next gensym . e.g. if gennum 
is set to 10023, gensym[]»A0024. 

The term gensym is used to indicate an atom that was produced by the function 
gensym . Atoms generated by gensym are the same as any other literal atoms > 
they haue property lists, and can be given function definitions. Kote that the 
atoms are not guaranteed to be new. 

For example, if the user has previously created A0012, either by typing it in, 
or via pack or gensym itself, when gennum gets to 10011, the next value 
returned by gensym will be the A0012 already in existence. 

mapatoms[fn] Applies fjn to every literal atom in the System, 

e.g. mapatoms[(LAHB0A(X)(AND(SUBRP X)(PRINT X)))] 
will print every subr . Value of mapatoms is NIL. 


10.2 String Functions 


stringp[x] Is x if x a string, NIL otherwise. Note: if x is 

a string, nlistp[x] is T, but atom[x] is NIL. 

strequal[x;y] Is x if x and jr are both strings and equal, i.e. 

print the same, otherwise NIL. Equal uses 
strequal . Note that strings may be equal without 
being eg. 

mkstring[x] Value is string corresponding to prinl of x. 

rstring[ ] Reads a string - see Section 14. 
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substring[x;n;m] 


Value is the substring of x consisting of the nth 
thrw nth characters of x. If m is NIL, the 

«— mm, y mm, 

substring is the nth character of x thru the end 
of x. n and m can be negative numbers, as with 
nthchar . Returns NIL if the substring is not well 

defined, e.g. n or m > nchars[x] or 

< ninus[nchars[x]] or n corresponds to a character 
in x to the right of the character indicated by m. 

If x is not a string, equivalent to 

sub&tring[mkstring[x];n;m], except substring does 
not have to actually nake the string if x is a 
literal atom. 6 For example, 
substring[(A B C);4;6]-"B C". 

gnc[x] flet next character of string x. Returns the next 

character of the string, (as an atom), and removes 
the character fron the string. Returns NIL if x 
is the null string. If x isn't a string, a string 
is made. Used for sequential access to characters 
of a string. 

Note that if x is a substring of y, gnc[x] does 
not remove the character from y, i.e. gnc doesn't 
physically change the string of characters, just 
the pointer and the byte count.® 


See string storage section that follows. 
See string storage section that follows. 
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ölc[x] 


flets last character of string x. Above remarks 
about gnc also supply to glc . 


concat[Xj ;x 2 ;... jXjj] lambda nospread function. Concatenates (copies 

of) any number of strings. The arguments are 
transformed to strings if they aren't strings. 
Value is the new string, e.g. 

concat[“ABC";0EF;"GHI"] = "ABCOEFGHI". The value 
of concat[] is the null string, 

rplstring[x;n;y] Replace characters of string x beginning at 

character n with string y. n may be positive or 
negative, x and y are converted to strings if 
they aren't already. Characters are smashed into 
(converted) x. Returns new x. Error if there is 
not enough room in x for y, i.e. the new string 
would be longer than the original. 7 Note that if x 
is a substring of z, z will also be modified by 
the action of rplstring . 

mkatom[x] Creates an atom whose pname is the same as that of 

the string x or if x isn't a string, the same as 
that of mkstring[x], e.g. mkatoin[(A B C)] is the 
atom X(A% BX CX). If atom would have > 99 
characters, causes an error, ATOM TOO LONG. 


-----—-- 

If jr was not a string, x will already have been partially modified since 
rplstring does not know~whether y will 'fit' wlthout actually attempting 
the transfer. 
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Searching Strings 


strpos is a function for searching one string looking for another. Roughly it 
corresponds to merober , except that it returns a character Position number 
instead of a tail. This number can then be given to substring or utilized in 
other calls to strpos . 

s t rpos[ x; y; Start; skip; anchor; tail ] 

x and x are both Strings (or eise they are 
converted automatically). Searches y beginning at 
character number Start , (or eise 1 if Start is 
NIU and looks for a sequence of characters equal 
to x. If a match is found. the corresponding 
character Position is returned, otherwise NIL. 
e.g., 

strpos["ABC","XYZABCDEF*]=4 
strpos["ABC","XYZABCDEF";5]»NIL 
strpos["ABC","XYZABCOEFABC";5]=10 

skip can be used to specify a character in x that 
matches any character in y, e.g. 
strpos["A&C&"{"XYZABCDEF";NIL;&]*4 

If anchor is T, strpos compares x with the 
characters beginning at Position Start . or i. If 
that comparison fails, strpos returns NIL without 
searching any further down y. Thus it can be used 
to compare one string with some portion of another 
string. e.g. 

strpos["ABC";"XYZABCDEF";NIL;NIL;T]*NIL 
strpos["ABC";"XYZABCDEF";4;NIL;T]«4 
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Finally, if tail is T, the value returned by 
strpos if successful is not the starting Position 
of the sequence of characters corresponding to x, 
but the Position of the first character after 
that, i.e. starting point plus nchars[x] e.g. 
strpos["ABC";"XYZABCDEFABC";NIL;NIL;NIL;T]-7. 

Note that strpos["A";"A";NIL;NIL;NIL;T>2, even 
though "A" has only one character. 


Example Problem 

Given the strings x, y, and 2 , write a function foo that will make a String 

corresponding to that portion of x between y and z, e.g. 

foo["NOW IS THE TIME FOR ALL 6000 MEN";"IS";"FOR"] is " THE TIME ". 

Solution: 

(FOO 

[LAMBDA (X Y Z) 

(AND (SETQ Y (STRPOS Y X NIL NIL NIL T)) 

(SETQ Z (STRPOS Z X Y)) 

(SUBSTRING X Y (SUB1 Z]) 

strpos 1[ a; s tr; Start; neg ] str is a String (or eise it is converted 

automatically to a string), a is a list of 
characters or character codes . 8 strposl searches 
str beginning at character number Start (or eise 1 
if start »NIL) for one of the characters in a. If 
one is found, strposl returns as its value the 


If any element of a is a number, it is assumed to be a character code. 
Otherwise, it is converted to a character code via chconl . Therefore, it 
is more efficient to call strposl with a a list of character codes. 
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corresponding character Position, otherwise NIL. 


E.fli., strposlt(A B C);"XYZBC0">4. If neg=T. 
strposl searches for a character not on a, e.g., 
strposl[(A B C); "ABCDEF";NIL;T]»4. 

If a is an array, it is treated as a bit table. 
The bits of (ELT A 1) correspond to character 
Codes 0 to 43Q, of (ELT A 2) to codes 44Q to 107Q, 
etc. Thus an array whose first element was 17Q 
would be äquivalent to a list (40Q 410 42Q 430) or 
(X_. ! X- #). 

If a is not a bit table (array), strposl first converts it to a bit table using 
makebittable described below. If strposl is to be called frequently with the 
same list of characters, a considerable savings can be achieved by Converting 
the list to a bit table once, and then passing the bit table to strposl as its 
first argument. 

makebittable[l;neg;a] mak.es a bit table suitable for use by strposl . 1 

and neg are as for strposl . If a is not an array 
with at least 4 elements, makebittable will create 
an array and return that as its value. Otherwise 
it uses (and changes) a. 

Note: if neg =T. strposl must call makebittable whether a is a list or an 
array. To obtain bit table efficiency with neq=T. makebittable should be 
called with neq »T. to construct the "inverted" table, and the resulting table 
(array) should be given to strposl with negcNIL. 
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String Storage 


A strlng is stored in 2 parts; the characters of the string, and a pointer to 
the characters. The pointer, or 'string pointer 1 , indicates the byte at which 
the string begins and the length of the string. It occupies one word of 
storage. The characters of the string are stored five characters to a word in 
a portion of the INTERLISP address space devoted exclusively to storing 
characters. 


Since the internal pname of literal atoms also consists of a pointer to the 
beginning of a string of characters and a byte count, conversion between 
literal atoms and strings does not require any additional storage for the 
characters of the pname , although one cell is required for the string pointer.® 


When the conversion is done internally, e.g. as in substring . strpos . or 
strposl , no additional storage is required for using literal atoms instead of 
strings. 


The use of storage by the basic string functions is given below: 


mkstring[x] 


x string 
x literal atom 
other 


no space 
new pointer 

new characters and pointer 


substring[x;n;mj x string 

x literal atom 
other 


new pointer 
new pointer 

new characters and pointer 


Except when the string is to be smashed by rplstring . In this case, its 
characters must be copied to avoid smashing the pname of the atom. 
rplstring automatically performs this Operation. 
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onc[x] and glc[x] x string 


no space, pointer is modified 
other like mkstring . but doesn't make much 

sense 


concattXj;x 2 ;.. .x^] args any type 

rplstring[x;n;y] x string 


x other 
y any type 


new characters for whole new 
string, one new pointer 

no new space unless characters are in 
pnaroe space (as result of 
mkstring[atom]) in which case x is 
quietly copied to string space 
new pointer and characters 
type of y doesn't matter 


10.3 Array Functions 

Space for arrays and compiled code are both allocated out of a common array 
space. Arrays of pointers and unboxed numbers may be manipulated by the 
following functions: 


array[n;p;v] This function allocates a block of n+2 words, of 

which the first two are header information. The 
next p < n are cells which will contain unboxed 
numbers, and are initialized to unboxed 0. The 
last n-p > 0 cells will contain pointers 
initialized with v, i.e., both car and cdr are 
avallable for storing information, and each 
initially contain v. If £ is NIL, 0 is used 
(i.e., an array containing all INTERLISP 
pointers). The value of array is the array, also 
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called an array pointer. \f sufficient space is 
not available for the array, a garbage Collection 
of array space, GC: 1, is initiated. If this is 
unsuccessful in obtaining sufficient space, an 
error is generated, ARRAYS FULL. 

Array-pointers print as tn, where n is the octal representation of the pointer. 

Kote that fn will be read as a literal atom, and not an array pointer. 

arraysize[a] Returns the size of array a. Generates an error, 

/ 

AR6 NOT ARRAY, if a is not an array. 

arrayptx] Value is x if x is an array pointer otherwise NIL. 

No check is made to ensure that x actually 
addresses the beginning of an array. 

elt[a;n] Value is nth element of the array a*® eit 

generates an error, ARG NOT ARRAY, If a Is not the 
beginning of an array .** If n corresponds to the 
unboxed reglon of a, the value of eit Is the full 
36 blt word, as a boxed Integer. If n corresponds 
to the pointer reglon of a, the value of eit Is 
the car half of the correspondlng element. 

seta[a;n;v] sets the nth element of the array a. Generates an 


elt[a;l] is the first element of the array (actually corresponds to the 3rd 
cell because of the 2 word header). 


arrayp is true for pointers into the middle of arrays . but eit and seta 
must be given a pointer to the beginning of an array, i.e., a value of 
array . 
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error, ARG NOT ARRAY, if a is not the beginning 
of an array. If n corresponds to the unboxed 
region of a, v must be a number, and is unboxed 
and stored as a full 36 bit word into the nth 
element of a. If n corresponds to the pointer 
region of a, v replaces the car half of the nth 
element. The value of seta is v. 

Kote that seta and eit are always inverse operations. 

eltd[a;n] sam© as eit for unboxed region of a, but returns 

cdr half of nth element, if n corresponds to the 
pointer region of a. 


setd[a;n;v] sam© as seta for unboxed region of a, but sets cdr 

half of nth element, if n corresponds to the 
pointer region of a. The value of setd is v. 


In other words, eltd and setd are always inverse operations. 


10.4 Storage Functions 


reclaim[n] Initiates a garbage collection of type n. Value 

of reclaim is number of words available Tfor that 
type) after the collection. 


Garbage collections, whether invoked directly by the user or indirectly by need 
for storage, do not confine their activity solely to the data type for which 
they were called, but automatically collect some or all of the other types (see 
Section 8). 


ntyp[x] Value is type number for the data type of 

INTERLISP pointer x, e.g. ntyp[(A . B)] is 8, the 
type number for lists. Thus GC: 8 indicates a 
garbage collection of list words. 
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type 


nurober 


arrays, compiled code 1 
stack positions 2 
list words 8 
atoms 12 
floating point numbers 16 
large integers 18 
small integers 20 
string pointers 24 
pnaroe storage 28 
string storage 30 


typep[x;n] eq[ntyp[x];n] 

gcgag[roessage] roessage is a string or atoro to be printed (using 

prinl ) wherever a garbage collection is begun. If 
message »T, its Standard setting, GC: is printed, 
followed by the type nurober. When the garbage 
collection is iomplete, two numbers are printed 
the number of Words collected for that type, and 
the total number of words available for that type, 
i.e. allocated but not necessarily currently in 
use (see minfs below). 


Exanple: 

*-RECLAIM( 18) 

GC: 18 

511, 3071 FREE WOROS 
3071 

«-RECLAIM( 12) 

GC: 12 

1020, 1020 FREE WOROS 
1020 


If message «NIL. no garbage collection message is 
printed, either on entering or leaving the garbage 
collector. Value of gcgag is old setting. 


10.18 



minfs[n;typ] 


Sets the minimum amount of free storage which will 
be maintained by the garbage collector for data 
types of type number tyg. If,, after any garbage 
collection for that type, fetter* than n free words 
are present, sufficient storage will be added (in 
512 word chunks) to raise the level to n. 

If typ »NIL, 8 is used, i.e. the ninfs refers to 
list words. 

If noNlL, minfs returns the current rainfs setting 
for the corresponding type. 

A minfs setting can also be changed dynamically, even during a garbage 
collection, by typing control-S followed by a number, followed by a period. 12 
If the control-S was typed during a garbage collection, the number is the new 
minfs setting for the type being collected, otherwise for type 8, i.e. list 
words. 


Ä’c*te« A garbage collection of a ’related' type mag also cause more storage to 
be assigned to that type. See discussion of garbage collector algortthm, 
Section 3. 


storage[flg] Prints amount of storage (by type number) used by 

and assigned to the user, e.g. 


When the control-S is typed, INTERLISP immediately clears and saves the 
input buffer, rings the bell, and waits for input, which is terminated by 
any non-number. The input buffer is then restored, and the program 
continues. If the input was terminated by other than a period, it is 
ignored. 


10.16 




■STORAGEO 


TYPE 

USED 

ASSIGNED 

1 

80072 

87552 

8 

7970 

9216 

12 

7032 

7680 

16 

0 

512 

18 

1124 

2560 

24 

118 

512 

28 

4226 

4608 

30 

573 

1024 

SUM 

101115 

113664 


If flg=T, includes storage used by and assigned to 
the System. Value is NIL. 


gctrp[n] garbage collection trag. Causes a (simulated) 

control-H Interrupt when the number of free list 
words (type 8) remaining equals n, i.e. when a 
garbage collection would occur in n more conses. 
The message GCTRP is printed, the function 
Interrupt (Section 16) is called, and a break 
occurs. Note that by advising (Section 19) 
Interrupt the user can program the handling of a 
gctrp instead of going into a break . 19 


Value of gctrp is its last setting. 


gctrpt-l] will ’disable* a previous gctrp since 
there are never -1 free list words. gctrp is 
initialized this way. 


f o """ 

For gctrp Interrupts, interrupt is called with intype (its third argument) 
equal to 3. If the user does not want to go into a break, the advice 
should still allow interrupt to be entered, but first set intype to -1. 
This will cause interrupt to "quietly" go away by calling the function that 
was interrupted. The advice should not exit interrupt via return , as in 
this case the function that was about to be called when the interrupt 
occurred would not be called. 
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gctrp[] returns number of list words left, i.o. 
nurnber of conses until noxt type 8 garbage 
collection, see Section 21. 


conscount[n] conscount[] returns number of conses 

INTERLISP started up. If n is not NIL, 
conscount to n. 

closer[a;x] Stores x into memory location a. Both x 

must be numbers. 

openr[a] Value is the number in memory location a 

boxed. 


since 

resets 

and a 

, i.e. 
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SECTION 11 

FUNCTIONS WITH FUNCTIONAL ARGUMENTS 


As in all LISP l.S Systems, arguments can be passed which can then be used as 
functions. However, since car of a form is neuer evaluated, apply or apply * 
must be used to call the function specified by the value of the functional 
argument. 

Functions which use functional arguments should use variables with obscure 
names to avoid possible conflict with variables that are used by the functional 
argument. For example, all system functions standardly use variable names 
consisting of the function name concatenated with x or fn, e.g. mapx . Note 
that by specifying the free variables used in a functional argument as the 
second argument to function . thereby using the INTERLISP FUNARG feature, the 
user can be sure of no clash. 

function[x;y] is an nlambda function. If y»NIL, the value of 

function is identical to quote , for example, 

(MAPC LST (FUNCTION PRINT)) will cause mapc to be 
called with two arguments the value of Ist and 
PRINT. Similarly, 

(MAPCAR LST (FUNCTION(LAMBDA(Z) (LIST (CAR Z))) ) ) 
will cause mapcar to be called with the value of 
Ist and (LAMBDA (Z) (LIST (CAR Z))). When 
compiled, function will cause code to be complled 
for x; quote will not. Thus 
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(MAPCAR LST (QUOTE (LAMBDA —))) will cause mapcar 
to be called with the value of Ist and the 
expression (LAMBDA The functional argument 
will therefore still be interpreted. The 
corresponding expression using function will cause 
a dummy function to be created with definition 
(LAMBDA --), and then complled. mapcar would then 
be called with the value of Ist and the name of 
the dummy function. See Section 18. 

If jr is not NIL, it is a list of variables that 
are (presumably) used freely by x. In this case, 
the value of function is an expression of the form 
(FUMARG x array), where array contains the 
variable bindings for those variables on ;y. 
Funarg is described on page 11.5-7. 

map[mapx;mapfnl;mapfn2] If mapfn2 is NIL, map applies the function mapfnl 

to successive tails of the list mapx . That is, 
first it computes mapfnl[mapx], and then 
mapfnl[cdr[mapx]], etc., until mapx is exhausted.^ 
If mapfn2 is provided, mapfn2[mapx] is used 
instead of cdr[mapx] for the next call for mapfnl . 
e.g., if mapfn2 were cddr, alternate elements of 
the list would be skipped. 

The value of map is NIL. map compiles open. 


i.e., becomes a non-list. 
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mapc[mapx;mapfnljmapfnZ] 


Identical to map , except that mapfnl[car[mapx]] is 
computed at each Iteration lnstead of 
mapfnl[mapx], i.e., mapc works on elements, map on 
tails. The value of mapc is NZL. mapc compiles 
open. 

maplist[mapx;mapfnl;mapfn2] successively computes the same values that map 

would compute; and returns a list consisting of 
those values. maplist compiles open. 

mapcar[mapx;mapfni;mapfn2] computes the same values that mapc would compute, 

and returns a list consisting of those values, 
e.g. mapcar[x;FNTYP] is a list of fntyps for each 
element on x. mapcar compiles open. 

mapcon[mapx;mapfnl;mapfn2] Computes the same values as map and maplist but 

nconcs these values to form a list which it 
returns. mapcon compiles open. 

mapconc[mapx;mapfnl;mapfn2] Computes the same values as mapc and mapcar , but 

nconcs the values to form a list which it returns. 
mapconc compiles open. 

Note that mapcar creates a new list which is a mapping of the old list in that 
each element of the new list is the result of applying a function to the 
corresponding element on the original list. mapconc is used when there are a 
variable number of elements (including none) to be inserted at each Iteration, 
e.g. mapconc[X;(LAMBDA (Y) (AND Y (LIST Y)))] will make a list consisting of x 
with all NILs removed, mapconc[X;(LAMBDA (Y) (AND (LISTP Y) Y))] will make a 
linear list consisting of all the lists on x, e.g. if applied to 
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<<A B) C (D E F) (6) H I) will yield (A B 0 E F G). 2 

subset[mapx;mapfnl;mapfn2] applies mapfnl to eleraents of mapx and returns a 

list of those elements for which this application 
is non-NIL, e.g., 

subsetC(A B 3 C 4);NUHBERP] = (34). 

n»apfn2 plays the same role as with map , roapc , et 

al. subset compiles open. 

map2c[mapx;mapy;mapfnl ;mapfn2] Identical to mapc except mapfnl is a function 

of two arguments, and mapfnl[car[mapx];car[mapy]] 
is computed at each interation. 2 Terminates when 
eit Der mapx or mapy are exhausted. 

map2car[mapx;mapy;mapfnl ;mapfn2] Identical to mapcar except mapfnl is a 

function of two arguments and 

mapfnl[car[mapx];car[mapy]] is used to assemble 
the new list. Terminates when either mapx or mapy 
is exhausted. 

Note: CLISP (Section 23) provides a more general and complete facility for 

expressing iterative Statements, e.g. (FOR X IN Y COLLECT (CAOR X) WHEN 

(NUMBERP (CAR X)) UNTIL (NULL X)). 


Note that since mapconc uses nconc to string the corresponding lists 
together, in this example, the original list will be clobbered, i.e. it 
would now be ((A B D E F G) C (0 E F G) (G) H I). If this is an undesirable 
side effect, the functional argument to mapconc should return instead a top 
level copy, e.g. in this case, use (AND (LISTP Y) (APPENO Y)). 


rc a P fn 2 is still a function of one argument, and is applied twice on each 
Iteration; mapfn2[mapx] gives the new mapx , mapfn2[mapy] the new mapy. cdr 
is used if mapfn2 is not supplied, i.e., is NIL. — - 
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mapr int[ Ist; filejleft; right ;sep;pfn;lispxprintf lg] 


is a general printing function. It cycles through 
Ist applying j»fn (or prinl if gfn not given) to 
each element of Ist. Between each application, 
maprint performs prinl of sej>, or ' " if sep =NIL. 
If left is given, it is printed (using prinl ) 
initially; if right is given it is printed (using 
prinl ) at the end. 

For exaraple, maprint[x;NIL ;%(;%) ] is äquivalent to 
prinl for lists. To print a list with commas 
between each element and a final one could use 
maprint[x;T;NIL;%.]. 

If lispxprlntflg ■ T, lispxprinl is used for prinl 
(see Section 22). 

Mapdl.searchpdl See Section 12. 

mapatoms See Section 5. 

every, some, notevery, notany See Section 5. 

Funarg 

function is a function of two arguments, x, a function, and y a list of 
variables used freely by x. If y is not NIL, the ualue of function is an 
expression of the form (FUNARG x array), where array contains the bindings of 
the variables on y at the time the call to function was evaluated. funarg is 
not a function itself. Like LAMBDA and NLAMBDA, it has meaning and is 
specially recognized by INTERLISP only in the context of applying a function to 
arguments. In other words, the expression (FUNARG x array) is used exactly 
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like a function. 1 * When a funarg is applied, the stack is modified so that the 
bindings contained in the array will be in force when x, the function, is 
called. 5 

For exaraple, suppose a program wished to compute (FOO X (FUNCTION FIE)), and 
f used y ar »d z as free variables. If foo rebound y and z, f je would obtain 
the rebound values when it was applied fron inside of foo . By evaluating 
instead (FOO X (FUNCTION FIE (Y Z))). foo would be called with 

(FUNARG FIE array) as its second arguraent, where array contained the bindings 
of y and z (at the time foo was called). Thus when fie was applied from inside 
of foo , it would 'see' the original values of y and z. 

However, funarg is more than just a way of circumventing the clashing of 
variables. For example, a funarg expression can be returned as the value of a 
computation, and then used 'higher up', e.g., when the bindings of the 
variables contained in array wer® no longer on the stack. Furthermore, if the 
function in a funarg expression sets any of the variables contained in the 
array, the array itself (and only the array) will be changed. For example, 
suppose foo is defined as 

(LAMBDA (LST FN) (PROG (Y Z) (SETQ Y &) (SETQ Z &) ... (MAPC LIST FN) ...)) 
and (FOO X (FUNCTION FIE (Y Z))) is evaluated. If one application of fie (by 

the mapc in foo) changes y and z, then the next application of fie will obtain 

the changed values of y and z resulting from the previous application of fie , 

since both applications of fie come from the exact same funarg object, and 

hence use the exact same array. The bindings of y and z bound inside of foo . 
and the bindings of y and z above foo would not be affected. In other words. 


LAMBDA, NLAMBDA, and FUNARG expressions are sometimes called 'function 
objects' to distinguish them from functions, i.e., literal atoms which have 
function definitions. 


5 


The Implementation of funarg is described in Section 12. 
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the variable bindings contained in array are a part of the function object, 
i.e., the funarg carries its environment with it. 

Thus by creating a funarg expression with function . a program can create a 
function object which has updateable binding(s) associated with the object 
which last betioeen calls to it, but are only accessible through that instance 
of the function. For example, using the funarg device, a program could 
maintain two different instances of the same random number generator in 
different States, and run them independent ly. 

Example 

If foo is defined as (LAMBDA (X) (COND ((ZEROP A) X) (T (MINUS X))) and fie as 
(LAMBDA NIL (PROG (A) (SETQ A 2) (RETURN (FUNCTION FOO)))). then if we perform 
(SETQ A 0), (SETQ FUM (FIE)), the value of fum is FOO, and the value of 
(APPLY* FUM 3) is 3, because the value of A at the time foo is called is 0. 

However if fie were defined instead as 

(LAMBDA NIL (PROG (A) (SETQ A 2) (RETURN (FUNCTION FOO (A))))), the value of 
fum would be (FUNARG FOO array) and so the value of (APPLY* FUM 3) would be -3, 
because the value of A seen by foo is the value A had when the funarg was 
created inside of fie, i.e. 2. 
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SECTION 12 

VARIABLE BINDINGS AND PUSH DOWN LIST FUNCTIONS 


A number of schemes have been used in diffarent implemen tat Ions of LISP for 
storing the values of variables. These include: 

1. Storing values on an association list paired with the variable names. 

2. Storing values on the property list of the atom which is the name of 
the variable. 

3. Storing values in a special value cell associated with the atom name, 
putting old values on a pushdown list, and restoring these values when 
exiting from a function. 

4. Storing values on a pushdown list. 

The first three schemes all have the property that values are scattered 
throughout list structure space, and, in general, in a paging environment would 
require references to many pages to deternine the value of a variable. This 
would be very undesirable in our System. In order to avoid this Scattering, 
and possibly excessive drum references, wo utilize a Variation on the fourth 
Standard scheme, usually only used for transmitting values of argumenta to 
compiled functions; that is, we place these values on the pushdown list. 1 But 


1 


Also called the stack. 




since we use an Interpreter as well as a Compiler, the variable names must also 
be kept. The pushdown list thus contains pairs, each consisting of a variable 
name and its value. Each pair occupies one word or 'slot 1 on the pushdown 
list, with the name in the left half, i.e. cdr , and the value in the right 
half, i.e. car* The Interpreter gets the value of a variable by searching back 
up the pushdown list looking for a 'slot' for which cdr is the name of the 
variable, car is then its value. 

One advantage of this scheine is that the current top of the pushdown stack is 
usually in core, and thus drum references are rarely required to find the value 
of a variable. Free variables work automatically in a way similar to the 
association list scheme. 

An additional advantage of this scheme is that it is completely compatible with 
compiled functions which pick up their arguments on the pushdown list from 
known positions, instead of doing a search. To keep complete compatibility, 
our compiled functions put the names of their arguments on the pushdown list, 
although they do not use them to reference variables. Thus, free variables can 
be used between compiled and interpreted functions with no special declarations 
necessary. The names on the pushdown list are also very useful in debugging, 
for they make possible a complete symbolic backtrace in case of error. Thus 
this technique, for a small extra overhead, minimizes drum references, provides 
symbolic debugging Information, and allows completely free mixing of compiled 
and interpreted routines. 

There are three pushdown lists used in INTERLISP: the first is called the 
Parameter pushdown list, and contains pairs of variable neunes and values, and 
temporary storage of pointers; the second is called the control pushdown list, 
and contains function returns and other control Information; and the third is 
called the number stack and is used for storing temporary partial results of 
numeric operations. 
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However, it is more convenient for the user to consider the push-down list as a 
single "list" containing the naraes of functions that have been entered but.not 
yet exited, and the names and values of the corresponding variables. The 
multiplicity of pushdown lists in the actual Implementation is for efficiency 
of Operation only. 

The Push-Down List and the Interpreter 

In addition to the names and values of arguments for functions, Information 
regarding partially-evaluated expressions is kept on the push-down list. For 
example, consider the following definition of the function fact (intentionally 
faulty): 

(FACT 

[LAMBDA (N) 

(COND 

((ZEROP N) 

L) 

(T (ITIMES N (FACT (SUB1 N]) 

In evaluating the form (FACT 1), as soon as fact is entered, the interpreter 
begins evaluating the implicit progn following the LAMBDA (see Section 4). The 
first function entered in this process is cond . cond begins to process its 
list of clauses. After calling zerop and getting a NIL value, cond proceeds to 
the next clause and evaluates T. Since T is true, the evaluation of the 
implicit progn that is the consequent of the T clause is begun (see Section 4). 
This requires calling the function Hirnes. However before itimes can be 
called, its arguments must be evaluated. The first argument is evaluated by 
searching the stack for the last bindlng of N; the second involves a recursive 
call to fact . and another implicit progn . etc. 

Note that at each stage of this process, some portion of an expression has been 
evaluated, and another is awaiting evaluation. The output below illustrates 
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this by showing the state of the push-down list at the point in the computation 
of (FACT 1) when the unbound atom L is reached. 


-FACT(l) 

U.B.A. 

(L BROKEN) 

:BTV! 

»FORM* (BREAK 1 L T L NIL #34047) 

#0 (L) 

#0 (((ZEROP N) L) (T (ITIMES N (FACT (SUB1 N))))) 1 

COND 

»FORM* (COND ((ZEROP N) L) (T (ITIMES N (FACT (SUB1 N))))) 

#0 ((COND ((ZEROP N) L) (T (ITIMES N (FACT (SÜB1 N)))))) 2 

N 0 
FACT 


»FORM* (FACT (SUB1 N)) 

#2 ITIMES 

#0 ((FACT (SUB1 N))) 3 

#0 1 4 

»FORM* (ITIMES N (FACT (SUB1 N))) 

#0 ((ITIMES N (FACT (SUB1 N)))) 5 

#0 (((ZEROP N) L) (T (ITIMES N (FACT (SUB1 N))))) 6 

COND 

»FORM* (COND ((ZEROP N) L) (T (ITIMES N (FACT (SUB1 N))))) 

#0 ((COND ((ZEROP N) L) (T (ITIMES N (FACT (SUB1 N)))))) 7 


N 1 
FACT 


**TOP** 


Internal calls to eval . e.g., fron cond and the Interpreter, are raarked on the 
push-down list by a special mark called an eval-blip. eval-blips are indicated 
by the appearance of (VAG 64) in the left-half, i.e. the variable narae 
Position, for that slot. They are printed by the backtrace as »FORM*. The 
genealogy of »FORM*'s is thus a history of the computation. Other temporary 
information is frequently recorded on the push-down list in slots for which the 
•variable narae' is (VAG 0), which prints as #0. In this example, this 
information consists of (1) the tail of a list of cond clauses, (2) the tail of 
an implicit progn , i.e., the definition of fact , (3) the tail of an argument 
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list, (4) the value of a previously evaluated argument, (5) tha teil of a cond 
clause whose predicate evaluated to true, and (6) and (7) same as (1) and (2). 

Note that a function is not actually entered and does not appear on the stack, 
untll its arguments have been evaluated. 2 Also note that the #0 'bindings' 
comprise the actual working storage. In other words, in the above exaraple, if 
a (lower) function changed the value of the binding at (1) (not recomnended) 
the cond would continue interpreting the new binding as a list of cond clauses. 
Similarly, if (4) were changed, the new value would be given to itimes as its 
first argument after its second argument had been evaluated, and itimes was 
actually called. 

The Pushdown List and Compiled Functions 

Calls to compiled functions, and the bindings of their arguments, i.e. names 
and values, are handled in the same way as for interpreted functions (hence the 
compatibility between interpreted and compiled functions). However, compiled 
functions treat free variables in a special way that interpreted functions do 
not. Interpreted functions "look up" free variables when the variable is 
encountered, and may look up the same variable many times. However, compiled 
functions look up each free variable only once. 3 Whenever a compiled function 
is entered, the pushdown list is scanned and the most recent binding for each 
free variable used in the function is found (or if there is no binding, the 
value cell is obtained) and stored in the right half of a Slot on the stack (an 
unboxed 0 is stored in the left half to distinguish this 'binding 1 frora 


except for functions which do not have their arguments evaluated (although 
they themselves may call eval , e.g. cond ). 


s 

A list of all free variables is generated at compile time, and is in fact 
obtainable front the compiled definition. See Section 18. 
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ordinary bindings). Thus, following the bindings of their arguments, compiled 
functions störe on the pushdown list pointers to the bindings for each free 
variable used in the function. 

In addition to the pointers to free variable bindings, compiled functions 
differ from interpreted functions in the way they treat locally bound 
variables, i.e. progs and open lambdas . Whereas in interpreted functions progs 
and open lambdas are called in the ordinary way as functions, in Compilation, 
Progs ®nd open lambdas disappear, although the variables bound by them are 
stored on the stack in the conventional manner so that functions called from 
inside them can reference the variables. These variables appear on the stack 
following the arguments to the compiled function (if any) and the free variable 
pointers (if any). The only way to determine dynamically what variables are 
bound locally by a compiled function is to search the stack from the first Slot 
beyond the last argument to the function (which can be found with stknargs and 
stkarg described below), to the Slot corresponding to the first argument of the 
next function. Any slots encountered that contain literal atoms in their left 
half are local bindings. 

Pushdown List Functions 

NOTE: Unless otherwise stated, for all pushdown list functions, 00 s is a 
Position on the control stack. If £os is a literal atom other than NIL, 
(STKPOS pos 1) is used. In this case, if jjos is not found, i.e., stkpos 
returns NIL, an ILLEGAL STACK ARG error is generated. 

stkpos[fn;n;pos] Searches the control stack starting at pos for the 

nth occurrence of fn. Returns control stack 
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Position of that fn if found,* eise NIL. If n is 
positive, seerches backward (noraal usage). If n 
is negative, searches forward, i.e., down the 
control stack. For example, stkpos[FOO;-2;FIE] 
finds second call to FOO after (below) the last 
call to FIE. If n is NIL, 1 is used. If pos is 
NIL, the search Starts at the current Position. 
stkpos[] gives the current Position. 

stknth[n;pos] Value is the stack Position (control stack) of the 

nth function call relative to Position pos . If 
pos is NIL, the top of stack is assumed for n > 0, 
and the current Position is assumed for n < 0, 
i.e., stknth[-l] is the call before stknth , 
stknth[l] is the call to evalgt at the top level. 
Value of stknth is NIL if there is no such call - 
e.g., stknth[10000] or stknth[-10;stknth[5]]. 

fstknthCn;pos] Version of stknth that compiles open. 

stkname[pos] Value is the name of the function at control stack 

Position gos. In this case, pos must be a real 
stack Position, not an atom. 

In summary, stkpos converts function names to stack positions, stknth converts 

numbers to stack positions, and stkname converts positions to function names. 


A stack Position is a pointer to the corresponding Slot on the control or 
Parameter stack, i.e., the address of that cell. It prints as an unboxed 
number, e.g., #32002, and its type is 2 (Section 10). 
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Information about the variables bound at a particular function call can be 
obtained using the following functions: 

stknargs[pos] Value is the number of argument* bound by the 

function at Position pos . 

stkarg[n ;pos] Value is a pointer to the nth argument (named or 

not) 5 of the function at Position pos . i.e.. the 
value is a Parameter stack Position, car of this 
pointer gives the value of the binding, cdr the 
name . n*l corresponds to the first argument at 
pos . n can be 0 or negative, i.e., stkarg[0;FOO] 
is a pointer to the Slot immediately before the 
first argument to F00» stkarg[-l;F00] the one 
before that, etc. 

fstkarg[n;pos] Version of stkarg that compiles open. 

Note that the user can change (set) the value of a particular binding by 
performing an rplaca on the value of stkarg . Similarly, rplacd changes (sets) 
the name. 

The value of stkarg is a Position (slot) on the Parameter stack. There is 
currently no analogue to stknth for the Parameter stack. However, the 
Parameter stack is a contiguous block of memory, so to obtain the slot previous 
to a given slot, perform vag[subl[loc[slot]]]; to obtain the next slot perform 
vag[addl[loc[slot]]], i.e. 


Subrs do not störe the names of their arguments. 
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stkarg[2;pos] ■ vag[addl[loc[stkarg[l;pos]]]].® 


As an example of the use of stknarqs and stkarq : 


variables[pos] returns list of variables bound at pos . 


can be defined by: 


(VARIABLES 
[LAMBDA (POS) 

(PROG (N L) 

(SETQ N (STKNARGS POS)) 

LP (COND 

((ZEROP N) 

(RETURN L))) 

(SETQ L (CONS (CDR (STKARG N POS)) 
L)) 

(SETQ N (SUB1 N)) 

(GO LP]) 


The counterpart of variables is also available. 


stkargsfpos] Returns list of values of variables bound at pos . 


The next three functions, stkscan . evalv . and stkeval all involve searching the 
Parameter pushdown stack. For all three functions, £os may be a Position on 
the control stack, i.e., a value of stkpos or stknth / In this case, the search 
Starts at stkarg[stknargs[pos];pos] i.e., it will include the arguments to the 
function at pos but not any locally bound variables. pos may also be a 
Position on the Parameter stack, in whlch case the search Starts with, and 
includes that Position. Finally, £os can be NIL, in which case the search 
Starts with the current Position on the Parameter stack. 


See Section 13 for discussion of vag and loc . 


or a function name, which is equivalent to stkpos[pos:l] as described 
earlier. 
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stkscan[var;pos] Searches backward on the Parameter stack from pos 

for a binding of var . Value is the Slot for that 
binding if found, i.e., a Parameter stack 
Position, otherwise var itself (so that in the 
cas« of literal atoms, car of stkscan is always 
the value of var ). 

evalv[var;pos] car[stkscan[var;pos]],i.e., returns the value of 

the atom var as of Position pos . 

stkevalCpos;form] is a mors general evalv. It is equivalent to 

eval[form] at Position gos, i.e., all variables 

O 

evaluated in form , will be evaluated as of pos . 

Finally, we have two functions which clear the Stacks: 

r 

retfrom[pos; value] clears the stack back to the function at Position 

pos ., and effects a return from that function with 
value as its value. 

reteval[pos;form] clears the stack back to the function at Position 

pos „ then evaluates form and returns with its 
value to the next higher function. In other 
words, retevalCpos,form] is equivalent to 
retfrom[pos;stkeval[pos;form]] 


However, any functions in form that specifically reference the stack, e.g., 
stkpos . stknth , retfrom . etc., ’see' the stack as it currently is. (See 
page 12.11-13 for desc.ripti n of how stkeval is implemented.) 


Provided form does not involve any stack functions, as explained in 
footnote 8. 
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We also have: 


mapdl[mapdlfn;mapdlpos] Starts at Position mapdlpos (current if NIL), and 

applies mapdlfn to the function naroe at each 
pushdown Position, i.e., to stkname[mapdlpos] 
until the top of stack is reached. Value is NIL. 
mapdlpos is updated at each Iteration. 

For example, mapdl[(LAMBDA (X) (AND (EXPRP X) (PRINT X)))] will print all exprs 
on the push-down list. 

mapdl[(LAMBDA (X) (COND ((GREATERP (STKNARG MAPDLPOS) 2) (PRINT X] will print 
all functions of more than two arguments. 

searchpdl[srchfn;srchpos] searches the pushdown list starting at Position 

srchpos (current if NIL) until it finds a Position 
for which srchfn applied to the name of the 
function called at that Position is not NIL. Value 
is (NAME . Position) if such a Position is found, 
otherwise NIL. srchpos is updated at each 
Iteration. 

The Pushdown List and Funarg 

The linear scan up the Parameter stack for a variable binding can be 
interrupted by a special mark called a skip-blip appearing on the stack in a 
name Position (See Figure 12-1). In the value Position is a pointer to the 
Position on the stack where the search is to be continued. This is what is 
used to make stkeval, page 12.10 work. It is also used by the funarg device 
(Section 11). 

When a funarg is applied, INTERLISP puts a skip-blip on the Parameter stack 


12.11 



with a pointer to the funarg array, and another skip-blip at the top of the 
funarg array pointing back to the stack. The effect is to make the stack look 
like it has a patch. The names and values stored in the funarg array will thus 
be seen before those higher on the stack. Similarly, setting a variable whose 
binding is contained in the furiarg array will change only the array. Note 
however that as a consequence of this Implementation, the same instance oj a 
funarg object cannot be used recursivelu . 
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SECTION 13 


NUMBERS AND ARITHHETIC FUNCTIONS 

13.0 General Comments 

There are three different types of numbers ln INTERLISPs small integers, large 
integers, and floating point numbers.* Slnce a large Integer or Floating polnt 
nutnber can be (in value) any 36 bit quantity (and vice versa), it is necessary 
to distinguish between those 36 bit quantities that represent large integers or 
floating point numbers, and other INTERLISP pointers. We do this by "boxing" 
the number, which is sort of like a special "cons": when a large integer or 
floating point number is created (via an arithmetic Operation or by read ). 
INTERLISP gets a new word from "number storage" and puts the large integer or 
floating point number into that word. INTERLISP then passes around the pointer 
to that word, i.e., the "boxed number", rather than the actual 36 bit quantity 
itself. Then when a numeric functlon needs the actual numeric quantity, it 
performs the extra level of addressing to obtain the "value" of the number. 
This latter process is called "unboxing". Note that unboxing does not use any 
storage, but that each boxing Operation uses one new word of number storage. 
Thus, if a computation creates many large integers or floating point numbers, 
i.e., does lots of boxes, it may cause a garbage Collection of large integer 
space, GC: 18, or of floating point number space, GC: 16. 


Floating point numbers are created by the read program when a . or an E 
appears in a number, e.g. 1000 is an integer, 1000. a floating point 
number, as are 1E3 and 1.E3. Note that 10000, 1000F, and 1E30 are perfectly 
legal literal atoms. 
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13.1 Integer Arithmetic 


Small Integers 

Small integers are those integers for which smallp is true, currently integers 
whose absolute value is less tham 1536. Small integers are boxed by offsetting 
them by a constant so that they overlay an area of INTERLISP's address space 
that does not correspond to any INTERLISP data typo. Thus boxing small numbers 
does not use any storage, and furthermore, each small numfaer has a unique 
representation, so that eg may be used to check equality. Note that e£ should 
not be used for large integers or floating point numbers, e.g., 
eq[2000;addl[ 1999]] is NILJ eqp or equal must bo used instead. 

Integer Functions 

All of the functions described below work on integers. Unless specified 
otherwise, if given a floating point nurober, they first convert the number to 
an integer by truncating the fractional bita, e.g., iplus[2.3;3.8]s5; if given 
a non-numeric argument, they generate an error, NON-NUMERIC ARG. 

It is important to use the integer arithmetic functions, whenever possible, in 
place of the more general arithmetic functions which allow mixed floating point 
and integer arithmetic, e.g., ip'lus vs plus , igreaterp vs qreaterp , because the 
integer functions compile open, and therefore run faster than the general 
arithmetic functions, and because the Compiler is "smart" about eliminating 
unnecessary boxing and unboxing. Thus, the expression 

(IPLUS (IQUOTIENT (ITIMES N 100) M) (ITIMES X Y)) will compile to perforo only 
one box, the outer one, and the expression 

(IGREATERP (IPLUS X Y) (IDIFFERENCE A B)) will compile to do no boxing at all. 
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Note that the PDP-10 i$ a 36 bit nachine, so that all integers are between 
-2*35 and Z*35-l. 2 Addlng two integers which produce a result outside this 
ränge causes overflow, e.g., 2»34 + 2134. 

The procedure on overflow is to return the largest possible integer, i.e. 
2t35 - \. a 


iplus[Xj;x 2 ;... ;x f| 3 
iminus[x] 

idifference[x;y] 

addl[x] 

subl[x] 

itimesCXj ;x 2 ;... SXjj] 
iquotient[x;y] 


x i ♦ x z ♦•••♦*« 

- x 

x - y 

x ♦ i 

x - 1 

the product of X},x 2 ,...xn 

x/y truncated, e.g., iquotient[3;2]»l, 
iquotient[-3,2]*-i 


iremainder[x;y] the remainder when x is divided by £, e.g., 

iremainder [3;2]»1 

igreaterp[x;y] T if x > y; NIL otherwise 

Approximately 34 billion 
3 

If the overflow occurs by trying to create a negative number of too large a 
magnitude, -2»35 is used instead of 2t35-l. 
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ilessp[x;y] 


T is x < y; NIL otherwise 


zerop[x] defined as eq[x;0]. 

Note that zerop should not be used for floating point numbers because it uses 

eg. Use eqplxiO] instead. 

tninuspCx] T if x is negative; NIL otherwise. Does not 

convert x to an integer, but simply checks sign 
bit. 

eqp[n;m] T if n and m are eg, or equal numbers, NIL 

otherwise. (eg may be used if n and m are known 
to be small integers.) eqp does not convert n and 
m to integers, e.g., eqp[2000;2000.3]*NIL, but it 
can be used to compare an integer and a floating 
point number, e.g., eqp[2000;2000.0]sT. eqp does 
not generate an error if n or m are not numbers. 

smallp[n] T if n is a small integer, eise NIL. smallp does 

not generate an error if n is not a number. 

fixptx] x if x is an integer, eise NIL. Does not generate 

an error if x is not a number. 

Converts x to an integer by truncating fractional 
bits, e.g., fix[2.3] ■ 2, fix[-1.7] * -1. If x is 
already an integer, fix[x]sx and doesn't use any 

A 

storage. 


Since Fix is also a lispx eommand (Section 22), typing FIX directly to 
l*spx will not cause the function fix to be called. 
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logand[Xj ;x 2 ; • • • jXjj] lambda no-spread, value is logical and of all its 

argumenta, as an integer, e.g., logand[7;5;6>4. 

logor[Xj;x 2 ;... j^] lambda no-spread, value is the logical or of all 

its arguments, as an integer, e.g., 
logor[l;3;9]*ll. 

logxor[Xj ;x 2 ;... jXjj] lambda no-spread, value is the logical exclusive 

or of its arguments, as an integer, e.g., 

logxor[ll;5] * 14, 

logxor[ll;5;9] ■ logxor[14;9] ■ 7. 

lsh[n;m] (arithmetic) left shift, value is n*2tm,i.e., n is 

shifted left m places. n can be positive or 
negative. If m is negative, n is shifted right -m 
places. 

rsh[n;m] (arithmetic) right shift, value is n*2»-m, i.e., n 

is shifted right m places. n can be positive or 
negative. If m is negative, n is left -m places. 

llsh[n;m] logical left shift. On PDP-10, llsh is equivalent 

to Ish . 

lrsh[n;m] logical right shift. 

The difference between a logical and arithmetic right shift lies in the 
treatment of the sign bit for negative numbers. For arithmetic right shifting 
of negative numbers, the sign bit is propagated, i.e., the value is a negative 
number. For logical right shift, zeroes are propagated. Note that shifting 
(arithmetic) a negative number 'all the way' to the right yields -1, not 0. 
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13.2 Floating Point Arithmetic 


All of the functions described below work on floatlng polnt numbers. Unless 
specified otherwise, if given an integer, they first convert the number to a 
floating point number, e.g., fplus[1;2.3] = fplus[l.0;2.3] » 3.3; if given a 
non-numeric argument, they generate an error, NON-NUMERIC ARG. 

The largest floating point number is 1.7014118E38, the smallest positive (non- 
zero) floating point number is 1.4693679E-39. The procedure on overflow is the 
same as for integer arithmetic. For underflow, i.e. trying to create a number 
of too small a magnitude, the value will be 0. 

X 1 * x 2 + *•• + *n 

- x 

X 1 “ x 2 * * * *„ 
x/y 

the remainder when x is divided by e.g., 
fremainder[1.0;3.0]■ 3.72529E-9. 

T if x is negative; NIL otherwise. W^rks for both 
integers and floating point numbers. 

T if x and y are eg, or equal numbers. See 
disctission page 13.4. 

T if x > y, NIL otherwise. 


fplus[xj;x 2 ;.. .x^ 
fminus[x] 

ftimes[x t ;x 2 ;... jx^ 

fquotient[x;y] 

fremainder[x;y] 

minusp[x] 

eqp[x;y] 

fgtp[x;y] 
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floetpfx] 


is x if x is a floating point number; NIL 
otherwise. Doas not give an error if x is not a 
number. 

Note that if numberp[x] is true, then either fixp[xj or floatp[x] is true. 

floattx] Converts x to a floating point number, e.g., 

float[0] «0.0. 

13.3 Mixed Arithmetic 

The functions in this section are 'contagious floating point arithmetic* 
functions, i.e., if any of the arguments are floating point numbers, they act 
exactly like floating point functions, and float all arguments, and return a 
floating point number as their value. Otherwise, they act like the integer 
functions. If given a non-numeric argument, they generate an error, 
NON-NUMERIC ARG. 

plustXj ;x 2 ;... {Xjj] X 1 + X Z * •** + x n 

minus[x] - x 

difference[x;y] x - y 

tiraes[Xj ;x z ;... ;x n ] x j * x 2 * ... * x,^ 

quotient[x;y] if x and jr are both integers, value is 

iquotient[x;y], otherwise fquotient[x;y]. 

remainder[x;y] if x and £ are both integers, value is 

iremainder[x;y], otherwise fremainder[x;y]. 
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greaterp[x;y] 


T if x > y, NIL otherwise. 


lessp[x;y] 


T if x < y, NIL otherwise. 


abs[x] 


x if x > 0, otherwise -x. abs uses greaterp and 
Minus . (not igreaterp and iminus ). 


13.4 Special Functions 

These functions are all "borrowed" frora the FORTRAN library and handcoded in 
INTERLISP via ASSEMBLE by J. W. Goodwin. They utilize a power series expansion 
and their values are (supposed to be) 27 bits accurate, e.g. f sin[30]».5 
exactly. 

value is m»n. If m is an integer and n is a 
positive integer, value is an integer, e.g, 
expl;[3;4]=81, otherwise the value is a floating 
point number. If m is negative and n fractional, 
an error is generated. 

value is a square root of n as a floating point 
number. n may be fixed or floating point. 
Generates an error if n is negative. sqrt[n] is 
about twice as fast as expt[n;.5] 

value is natural logarithm of x as a floating 
point number. x can be integer or floating point. 

antilog[x] value is floating point number whose logarithm is 

x. x can be integer or floating point, e.g., 
antilogtl] • e « 2.71820... 


expt[m;n] 


sqrtCn] 


logtx] 
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sin[x;radiansflg] 


cos[x;radiansflg] 

tan[xjradiansflg] 

arcsln[x;radiansflg] 


arccos[x;radiansflg] 

arctan[x;radiansflg] 

rand[lower;upper] 


x ln degrees unless radiansflo «T. Value is sine of 
x is i floating polnt number. 

Simllar to sin . 

Simllar to sin . 

x is a number between >1 and 1 (or an error is 
generated). The value of arcsin is a floating 
point number, and is in degrees unless 
radiansflg aT. In other words, if 

arcsin[x;radiansflg]Bz then sin[z;radiansflg]*x. 
The ränge of the value of arcsin is -90 to +90 for 
degrees, -n/2 to tf/2 for radians. 

Simllar to arcsin . Range is 0 to 180, 0 to tt. 

Similar to arcsin . Range is 0 to 180, 0 to r. 

Value is a pseudo-random number between lower and 
upper inclusive, i.e. rand can be used to generate 
a sequence of random numbers. If both limits are 
integers, the value of rand is an integer, 
otherwise it is a floating point number. The 
algorithm is completely determlnistic, i.e. given 
the same initial state, rand produces the same 
sequence of values. The internal state of rand is 
initialized using the function randset described 
below, and is stored on the free variable 
randstate. 
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randset[x] 


Value is internal state of rand after randset has 


finished operating, as a dotted pair of two 
integers. If x=NIL, value is current state. If 
x=T, randstate is initialized using the clocks. 
Otherwise, x is interpreted as a previous internal 
state, i.e. a value of randset , and is used to 
reset randstate . For example, 

1. (SETO OLDSTATE (RANDSET)) 

2. Use rand to generate some random numbers. 

3. (RANDSET OLDSTATE) 

4. rand will generate same sequence as in 2. 


13.5 Reusing Boxed Numbers - SETN 

rplaca and rplacd provide a way of cannibalizing list structure for reuse in 
order to avoid making new structure and causing garbage collectionsThis 
section describes an analogous function for large integers and floating point 
numbers, setn . setn is used like setg , i.e., its first argument is considered 
as quoted, its second is evaluated. If the current value of the variable being 
set is a large integer or floating point number, the new value is deposited 
into that word in number storage, i.e., no new storage is used.® If the current 
value is not a large integer or floating point number, e.g., it can be NIL, 
se *n operates exactly like setg , i.e., the large integer or floating point 
number is boxed, and the variable is set. This eliminates initialization of 
the variable. 


This technique is frowned upon except in well-defined, localized situations 
where efficiency is paramount. 


The second argument to setn must always be a number or a NON-NUMERIC AR6 
error is generated. 
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setn will work interpretively, i.e., reuse a Word in number storage, but will 
not yield any savings of storage because the boxing of the second argument will 
still take place» when it is evaluated. The elimination of a box is achiaved 
only when the call to setn is compiled, since setn compiles open, and does not 
perform the box if the old value of the variable can be reused. 

Caveats concerning use of SETN 

There are three situations to watch out for when using setn . The first occurs 
when the same variable is being used for floating point numbers and large 
integers. If the current value of the variable is a floating point number, and 
it is reset to a large integer, via setn . the large integer is simply deposited 
into a word in floating point number storage, and hence will be interpreted as 
a floating point number. Thus, 

«-(SETQ F00 2.3) 

2.3 

♦•(SETN F00 10000) 

2.189529E-43 

Similarly, if the current value is a large integer, and the new value is a 
floating point number, equally Strange results occur. 

The second Situation occurs when a setn variable is reset from a large integer 
to a small integer. In this case, the small integer is simply deposited into 
large integer storage. It will then print correctly, and function 
arithmetically correctly, but it is not a small integer, and hence will not be 
eg to another integer of the same value, e.g., 
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«-(SETQ FOO 10000) 

10000 

-(SETN FOO 1) 

1 

-( IPLUS FOO 5) 

6 

-(EO FOO 1) 

NIL 

-(SMALLP FOO) 

NIL 

In particular, note that zerop wäll return NIL even if the variable is equal to 
0. Thus a program which begins with FOO set to a large Integer and counts it 
down by (SETN FOO (SUB1 FOO)) must terminate with (EQP FOO 0), not (ZEROP FOO). 

Finally, the third Situation to watch out for occurs when you Want to save the 
current value of a setn variable for later use. For example, if FOO is being 

used by setn , and the user wants to save its current value on FIE, 

(SETQ FOO FIE) is not sufficent, since the next setn on FOO will also change 
FIE, because its changes the word in number storage pointed to by FOO, and 

hence pointed to by FIE. The number must be copied, e.g., 

(SETQ FIE (IPLUS FOO)), which sets FIE to a new word in number storage. 

setn[var;x] nlairibda function like setq . var is quoted, x is 

evaluated, and its value must be a number. var 
will be set to this number. If the current value 
of var is a large integer or floating point 
number, that word in number storage is 
cannibalized. The value of setn is the (new) 
value of var. 


13.6 Box and Unbox 

Some applications may require that a user program explicitly perform the boxing 
and unboxing operations that are usually implicit (and invisible) to raost 
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programs. The functions that perfor» these operations ar« loc and vag 
respectively. For example, if a user program executas a TENEX JSYS using the 
ASSEMBLE directive, the value of the ASSEHBLE expression will have to be boxed 
to be used arithmetically, e.g., (IPLUS X (LOC (ASSEHBLE --))). It must be 
emphasized that 

Arbitrary unboxed numbers should not be passed around as ordinary ualues 
because they can cause trouble for the garbage collector. 

For example, suppose the value of x were 150000, and you created (VAG X), and 
this just happened to be an address on the free storage list] The next garbage 
collection could be disastrous. For this reason, the function vag must be used 
with extreme caution when its argument's ränge is not known. 

One place where vag is safe to use is for performing computations on stack 
positions, which are simply addresses of the corresponding positions (cells) on 
the stack. To treat these addresses as numbers, the prograra must first box 
them. Conversely, to convert numbers to corresponding stack positions, the 
program must unbox them. Thus, suppose x wäre the value of stkarg , i.e., x 
corresponds to a Position on the Parameter stack. To obtain the next Position 
on the stack, the program must compute (VAG (A001 (LOC X))). Thus if x were 
#32002 , 7 (LOC X) would be 32002Q, Ä (AD01 (LOC X)) would be 32003Q, 
and (VAG (ADD1 (LOC X))) would be #32003. 

Note that rather than starting with a number, and unboxing it to obtain its 
numeric quantity, here we started with an address, i.e., a 36 bit quantity, and 


An INTERLISP pointer (address) which does not correspond to the address of 
a list structure, or an atom, or a number, or a string, is printed as #n, n 
given in octal. 


s Q following a number means the numeric quantity is expressed in octal. 
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wishing to treat it as a number,, boxed it. For exaraple, loc of an atora, e.g., 
(LOC (QUOTE F00)), treats the atora as a 36 bit quantity, and makes a number out 
of it. If the address of the aitom F00 were 125000, (LOC (QUOTE FOO)) would be 
125000, i.e. the location of FOO. It ls for this reason that the box Operation 
is called loc, which is short for location. 9 

Note that FOO does not print as #364110 (125000 in octal) because the print 
routine recognizes that it is an atora, and therefore prints it in a special 
way, i.e. by printing the individual characters that comprise it. Thus 
(VAG 125000) would print as FOO, and would be in fact FOO. 

loc *- x ^ Makes a number out of x, i.e., returns the 

location of x. 

vagCx:1 The inverse of loc. x raust be a number; the value 

of vag is the unbox of x. 

The Compiler eliminates extra vag's and loc's for exaraple 
(IPLUS X (LOC (ASSEMBLE --))) will not box the value of the ASSEMBLE, and then 
unbox it for the addition. 


vag is an abbreviation of value get. 
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SECTION 14 

INPUT/OUTPUT FUNCTIONS 

14.1 Files 

All input/output functions in INTERLISP can specify their source/destination 
file with an optional extra argument which is the name of the file. This file 
must be opened as specified below. If the extra argument is not given (has 
value NIL), the file specified as "primary" for input (output) is used. 
Normal ly these are both T, for teletype input and output. However, the primary 
input/output file may be changed by 

input[file]* Sets file as the primary input file. Its value is 

the name of the old primary input file. 

input[] returns current primary input file, which 
is not changed. 

output[file] Same as input except operates on primary output 

file. 

Any file which is made primary must haue been previously opened for 
input/output, except for the file T, which is always open. 


The argument name file is used for tutorial purposes only. The arguments 
to all subrs are U, V, and W as described in arglist . Section 8. 
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infile[file] 


Operis file for lnput, and sets it as the primary 
input file. The value of infile is the previous 
primary input file. If file is already open, same 
as input[file]. Generates a FILE WON'T OPEN error 
if file won't open, e.g., file is already open for 
output. 

outfiletfile] Operis file for output, and sets it as the primary 

output file. 3 The value of outfile is the previous 
primary output file. If file is already open, 
same as output[file]. Generates a FILE WON'T OPEN 
error if file won't open, e.g., if file is already 
open for input. 

For all input/output functions, file follows the TENEX conventions for file 
names, i.e. file can be prefixed by a directory name enclosed in angle 
brackets, can contain alt-modes or control-F's, and can include suffixes and/or 
Version numbers. Consistent with TENEX, when a file is opened for input and no 
Version number is given, the highest Version number is used. Similarly, when a 
file is opened for output and no Version number is given, a new file is created 
with a Version number one higher than the highest one currently in use with 
that file name. 

Regardless of the file name given to the INTERLISP function that opened the 


To open file without changing the primary input file, perform 

input[infile[file]]. 

To open file without changing the primary output file, perform 

output[outfiletfile]]. 
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file, INTERLISP maintains only full TENEX file names^ in its internal table of 
open files and any function whose value is a file name always returns a full 
file name, e.g. openp[FOO]=FOO.;3. Whenever a file argument is given to an i/o 
function. INTERLISP first checks to see if the file is in its internal table. 
If not, INTERLISP executes the appropriate TENEX JSYS to "recognize" the file. 
If TENEX does not successfully recognize the file, a FILE NOT FOUNO error is 
generated.* If TENEX does recognize the file, it returns to INTERLISP the full 
file narae. Then, INTERLISP can continue with the indicated Operation. If the 
file is being opened, INTERLISP opens the file and Stores its (full) name in 
the file table. If it is being closed, or wrltten to or read from, INTERLISP 
checks its internal table to raake sure the file is open, and then executes the 
corresponding Operation. 

Note that each time a full file name is not used, INTERLISP must call TENEX to 
recognize the name. Thus if repeated operations are to be performed, it is 
considerably more efficient to obtain the full file name once, e.g. via infilep 
or outfilep . Also, note that recognition by TENEX is performed on the user's 
entire directory. Thus, even if only one file is open, say FOO.jl, FS 
(F altmode) will not be recognized if the user's directory also contains the 
file FIE.;1. Similarly, it is possible for a file name that was previously 
recognized to become ambiguous. For example, a program performs infile[FOO], 
opening FOO.;l, and reads several expressions from FOO. Then the user types 
control-C, creates a FOO.;2 and reenters his program. Now a call to read 
giving it FOO as its file argument will generate a FILE NOT OPEN error, because 
TENEX will recognize FOO as FOO.;2. 


i.e. name, extension, and Version, plus directory name if it differs from 
connected directory. 


except for infilep . outfilep and openp , which in this case return NIL. 
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infilep[file] 


infilep and outfilep 
are pure predicates. 

outfilep[file] 

closefffile] 


closeall[ ] 

openptfile;type] 


Returns full file name of flle If recognlzed by 
TENEX, NIL otherwise. The full flle name will 
contain a directory field only if the directory 
differs from the currently attached directory. 
Recognition is in input context, i.e. if no 
Version number is given, the highest Version 
number is returned. 

do not open anp fites, or change the primary fitest they 

Sinilar to infilep . except recognition is in 
output context, i.e. if no Version number is 
given, a Version number one higher than the 
highest Version number is returned. 

Closes file . Generates an error, FILE NOT OPEN, 
if file not open. If file is NIL, it attempts to 
close the primary input file if other than 
teletype. Failing that, it attempts to close the 
primary output file if other than teletype. 
Failing both, it returns NIL. If it closes any 
flle, it returns the name of that file. If it 
closes elther of the primary flies, it resets that 
primary file to teletype. 

Closes all open files (except T). Value is a list 
of the files closed. 

If type sNIL. value is file (full name) if file is 
open either for reading or for writing. Otherwise 
value is NIL. 
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If typ« is INPUT or OUTPUT, valu« is file if open 
for corresponding type, otherwise NIL. If type is 
BOTH, value is file if open for both input and 
output, (See iofile , page 14.6) otherwise NIL. 

Note: the value of openp is NIL if file is not 
recognized, i.e. openp does not generate an error. 

openp[] returns a list of all files open for input 
or output, excluding T. 

Addressable Files 

For most applications, files are read starting at their beginning and 
proceeding sequentially, i.e. the next character read is the one immediately 
following the last character read. Similarly, files are written sequentially. 
A program need not be aware of the fact that there is a file pointer associated 
with each file that points to the location where the next character is to be 
read frora or written to, and that this file pointer is automatically advanced 
after each input or output Operation. This section describes a function which 
can be used to reposition the file pointer, thereby allowing a program to treat 
a file as a large block of auxiliary storage which can be access randomly.® For 
example, one application might involve writing an expression at the beginning 
of the file, and then reading an expression front a specified point in its 


Random access means that any location is as quickly accessible as any 
other. For example, an array is randomly accessible, but a list is not, 
since in order to get to the nth elernent you have to sequence through the 
first n-1 elements. 


6 



middle. 
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A file used in this fashion is much like an array ln that it has a certain 
number of addressable locations that characters can be put into or taken from. 
However, unlike arrays, files can be enlarged. For example, if the file 
pointer is positioned at the end of a file and anything is written, the file 
"grows." It is also possible to Position the file pointer beyond the end of 
file and then to write.^ In this case, the file is enlarged, and a "hole" is 
created, which can later be written into. Note that this enlargement only 
takes place at the end of a file; it is not possible to make more roora in the 
middle of a file. In other words, if expression A begins at positon 1000, and 
expression B at 1100, and the program attempts to overwrite A with expression 
C, which is 200 characters long, part of B will be clobbered. 

iofile[file] Opens file for both input and output, Value is 

file. Does not change elther primary input or 
primary output. If no Version number is given, 
default is same as for infile . i.e. highest 
Version number. 

sfptr[file;address] Sets file £ointer for file to address.® Value is 


This particular example requires the file be open for both input and 
output. This can be achieved via the function iofile described below. 
However, random file input or output can be performed on files that have 
been opened in the usual way by infile or outfile. 


If the program attempts to read beyond the end of file, an END OF FILE 
error occurs. 


TENEX uses byte addressing; the address of a character (byte) is the number 
of characters (bytes) that precede it in the file, i.e., 0 is the address 
of the beginning of the file. However, the user should be careful about 
computing the space needed for an expression, since end-of-line is 
represented as two characters in a file, but nchars only counts it as one. 
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old setting. address «-1 corresponds to the end of 


file." 

If address «NIL. sfptr returns the current value of 
file polnter without changing it. 

f ilepos[x; file; Start; and; skipjtail]** Searches file for x a la strpos (Section 

10). Search begins at Start (or if start «NIL. 
the current Position of file pointer), and goes to 
end (or if end«NIL, to the end of file ). Value is 
address of Start of match, or NIL if not found. 
sfcip can be used to specify a character which 
matches any character in the file. If tail is T, 
and the search is successful, the value is the 
address of the first character öfter the sequence 
of characters corresponding to x, instead of the 
starting address of the sequence. In either case, 
the file is left so that the next i/o Operation 
begins at the address returned as the value of 
filepos . 


Note; if a file is opened for output only, either by outfile , or 
openf[file;100000q] (see page 14.8), TENEX assumes that one intends to 
write a new or different file, even if a Version number was specified and 
the corresponding file already exists. Thus, sfptr[file;-i] will set the 
file pointer to 0. If a file is opened for both reading and writing, 
either by iofile or openfffile;300000q], TENEX assumes that there might be 
material on the file that the user intends to read. Thus, the initial file 
pointer is the beginning of the file, but sfptr[file;-l] will set it to the 
end of the file. Note that one can also open a file for appending by 
openf[file;20000q]. In this case, the file pointer right after opening is 
set to the end of the existing file. Thus, a write will automatically add 
material at the end of the file, and an sfptr is unnecessary. 


11 filepos was written by J.W. Goodwin. 
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Openf 


openf[file;x] opens file . x is a number whose bits specify the 

access and mode for file . i.e. x corresponds to 
the second argument to the TENEX JSYS OPENF (see 
JSYS Manual). Value is full narae of file . 

openf permits opening a file for read, write, execute, or append, etc. and 
allows specification of byte size, i.e. a byte size of 36 enables reading and 
writing of full words. openf does not affect the primary input or output file 
settings, and does not check whether the file is already open - i.e. the same 
file can be opened more than once, possibly for different purposes.* 2 openp 
will work for files opened with openf . 

The first argument to openf can also be a number, which is then interpreted as 
JFN. This results in a more efficient call to openf . and can be signficant if 
the user is making frequent calls to openf . e.g. switching byte sizes. 


JFN Functions* 2 


JFN Stands for jeb file number. It is an integral part of the TENEX file 
System and is described in [Muri], and in somewhat more detail in the TENEX 
JSYS manual. The following function can be used to obtain the JFN for an 
already opened file. 

opnjfn[file] returns the JFN for file . If file not open, 

generates a FILE NOT OPEN error. 

The "thawed" bit in x permits opening a file that is already open. 

1 1 

The JFN functions were written by J.W. Goodwin. 
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Example: to write a byte on a file 


[DEFINEQ (BOUT 

(LAMBDA (FILE BYTE) 

(LOC (ASSEMBLE NIL 

(CQ (VAG BYTE)) 

(PUSH NP , 1) 

(CQ (VAG (OPNJFN FILE))) 
(POP NP , 2) 

(JSYS 51Q) 

(MOVE 1 , 2)] 


or to read a byte fron a file 


[DEFINEQ (BIN 

(LAMBDA (FILE) 

(LOC (ASSEMBLE NIL 

(CQ (VAG (OPNJFN FILE))) 
(JSYS 50Q) 

(MOVE 1,2] 


Making BIN and BOUT Substitution macros can save boxing and unboxing in 
compiled code. 


The follovring functions are avallable for direct manipulation of JFN's; 


gtjfn[file;ext;v;flags] sets up a 'long' call to GTJFN (see JSYS manual). 

file is a file name possibly containing control-F 
and/or alt-mode. ext is the default extension, v 
the default Version (overriden if file specifies 
extension/version, e.g. FOO.COM;2). flags is as 
described on page 17, section 2 of JSYS manual. 
file and ext may be strings or atoms; v and flags 
must be numbers. Value is JFN, or NIL on errors. 


rljfn£jfn] releases jfn . rljfn[-l] releases all JFN's which 

do not specify open files. Value of rljfn is T. 


jfns[ jfn;ac3] converts jfn (a small number) to a file name. ac3 
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is either NIL, meaning format the file name as 
would openp or other INTERLISP file functions, or 
eise is a number, meaning formet according toJSYS 
manual. The value of jfns is atomic except where 
enough options are specified by ac3 to exceed atom 
size (> 100 characters). In this case, the value 
is returned as a string. 


14.2 Input Functions 


Most of the functions descrtbed below haue an (optional) argument file which 
spectfies the name of the file on which the Operation is to take place. If 
that argument is NIL, the primarg input file will be used. 


Note, in all INTERLISP symbolic files, end-of-line is indicated by the 
characters carriage-return and line-feed in that order. Accordinglg, on input 
from files, INTEJU^ISP will skip all line-feeds which irmediately follow 
carriage-returns. On input from teletype, INTERLISP will echo a line-feed 
wheneuer a carriage-return is input. 


For all input functions except readc and peekc , when reading from the teletype, 
control-A erases the last character typed in, echoing a \ and the erased 
character. Control-A will not backup beyong the last carriage return. Typing 
control-Q causes INTERLISP to print ** and c lear the input buffer, i.e. erase 
the entire hne back to the last carriage-return. When reading from a file, 
and an end of file is encountered, all input functions close the file and 
generate an error, END OF FILE. 


read[file;flg] Reads one S-expression from file . Atoms are 

delimited by parentheses, brackets, double quotes, 
spaces, and carriage-returns. To input an atom 
which contains one of these syntactic delimiters, 
preceded the delimiter by the escape character %, 
e.g. ABX(C, is the atom AB(C, XX is the atom X. 
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Actually, INTERLISP skips the next character after 
without looking at it at all. 


a carriage-return 
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Strings are delimited by double quotes. To input 
a string containing a double quote or a X, precede 
it by X, e.g. "ABX N C” is the string AB”C. Note 
that X can always be typed even if next character 
is not 'special', e.g XAXBXC is read as ABC. 

If an atom is interpretable as a number, read will 
create a number, e.g. 1E3 reads as a floating 
point number, 103 as a literal atom, i.O as a 
number, 1,0 as a literal atom, etc. Note that an 
integer can be input in octal by terminating it 
with a Q, e.g. 17Q and 15 read in as the same 
integer. The setting of radix . page 14.22, 
determines how integers are printed, i.e. with or 
without Q's. 

Uhen reading fj&m the teletype, all input is line-buffered to enable the action 
of control-Q. Thus no characters are actually seen by the program until a 
c arriage-return is typed. However, for reading by read or uread , when a 
matching right parenthesis is encountered, the effect is the same as though a 
carriage return were typed, i.e. the characters are transmitted. To indicate 
t his, I MT ER LI SP also prints a carriage-return line-feed on the teletype. 

flg=T suppresses the carriage-return normally 
typed by read following a matching right 
parenthesis. (However, the characters are still 
given to read - i.e. the user does not have to 
type the carriage return himself.) 

ratom[file] Reads in one atom frora file. Separation of atoms 

Unless control[TJ has been performed (page 14.24). 
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is defined by action of setsepr and setbrk 
described below. % is also an escape character 
for ratom . and the remarks concerning control-A, 
control-Q, and line-buffering also apply. 


If the characters comprising the atom would 
norraally be interpreted as a number by read , that 
number is also returned by ratom . Note however 
that ratom takes no special action for " whether 
or not it is a break character, i.e. ratom never 
makes a String. 


The purpose of ratom , rstring , setbrk . and setsepr is to atlow the user to 
write his outn read program without hauing to resort to reading character by 
character and then ca Hing pack to make atoms. The function uread (page 
14.15) is aoailable if the user wants to handle input as read does, i.e. same 
action on parentheses, double quotes, square brackets, dot, spaces, and 
carriage-return, but in addition, to split atoms that contain certain 
characters , as specified by setbrk and setsepr . 


rstring[file] Reads in one String from file . terminated by next 

break or Separator character. Control-A, control- 
Q, and % have the same effect as with ratom. 


Note that the break or Separator character that terminates a call to ratom or 
£. £ . tr * n g not read by that call, but remains in the buffer to become the first 
character seen by the next reading function that is called. 


ratoms[a;file] 


Calls ratom repeatedly until the atom a is read. 
Returns a list of atoms read, not including a. 


setseprtIst;flg] Set Separator characters. Value is NIL. 

setbrk[Ist;flg] Set break characters. Value is NIL. 
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For both setsepr and setbrk . lst is a list of character codes, flg determines 
the action of setsepr / setbrk as follows: 

NIL clear out old tables and reset. 

0 clear out only those characters in Ist - 

i.e. this provides an unsetsepr and unsetbrk . 

1 add characters in Ist to corresponding table. 

Characters specified by setbrk will dellmit atoms, and be returned as separate 
atoms themselves by ratora.* 0 Characters specified by setsepr will be ignored 
and serve only to separate atoms. For example, if $ was a break character and 
] a Separator character, the input stream ABC]]DEFSGH]$$ would be read by 6 
calls to ratom returning respectively ABC, DEF, 5, GH, S, $. 

Note that the action of X is not affected by setsepr or setbrk . To defeat the 
action of X use escape[], as described below. 

The elements of Ist may also be characters e.g. setbrk[(X( X))] has the same 
effect as setbrk[(40 41)]. Note however that the 'characters' 1,2...9,0 will 
be interpreted as character codes because they are numbers. 

Initially, the break characters are [ ] ( ) and " and the Separator characters 
are space, tab, carriage-return, line-feed, end-of-line, and form-feed. (Note 
that . is not a break or Separator character.) setbrk[T] sets the break 
characters to their initial settings, and setsepr[T] does the same for the 
Separator characters. 

getsepr[] Value is a list of Separator character codes. 
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but have no effect whatsoever on the action of read. 





getbrk[] 


Value is a list of break character codes. 


escape[flg] If flg=NIL, makes X act like every other 

character. Normal setting is escape[T]. 

The value of escape is the previous setting. 

ratest[x] If x « T, ratest returns T if a Separator was 

encountered immediately prior to the last atom 
read by ratom . NIL otherwise. 

If x * NIL, ratest returns T if last atom read by 
ratom or read was a break character, NIL 
otherwise. 

If x * i, ratest returns T if last atom read 

(by read or ratom ) contained a X (as an escape 
character, e.g., X[ or XAXBXC), NIL otherwise. 

readc[file] Reads the next character, including X, ", etc. 

Value is the character. Action of readc is 
subject to line-buffering, i.e. readc will not 
return a value until the line has been terminated 
even if a character has been typed. Thus, 
control-A and control-Q will have their usual 
effect. If control[T] has been executed (page 
14.24), defeating line-buffering, readc will 
return a value as soon as a character is typed. 
In addition, if control-A or control-Q are typed, 
readc will return them as values. 
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peekc[file;flg] 


Value is the next character, but does not actually 
read it, i.e. remove it from the buffer. If 
flg*NIL« peekc is not subject to line-buffering, 
i.e. it returns a value as soon as a character has 
been typed. If flg»T, peekc waits until the line 
has been terminated before returning its value. 
This me ans that control-A and control-Q will be 
able to perform their usual editlng functions. 

lastetfile] Value is last character read from file. 

uread[file;flg] (for user read). Same as read except it uses 

Separator and break characters set by setsepr and 
setbrk . This function is useful for reading in 
list structure in the normal way, while Splitting 
atoms containing special characters. Thus with 
space a Separator character, and break characters 
of ( ) . and ' the input stream (IT'S EASY.) is 
read by uread as the list (IT ' S EASY X.) 

Note that ( ) [ ] and " must be included in the 
break characters if uread is to take special 
action on them, i.e. assemble lists and make 
strings. 

flflsT suppresses carriage-return normally typed 
following a matching right parentheses. See page 
14.11. 
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Note* r ead , ratom, rqtoms , peeftt; . readc . and uread all wait for in put if there 
is none. The only way to test whether or not there is input is to use 


Value is T if there is anything in the input 
bgffer of file . NIL otherwise (not particularly 
meaningful for file other than T). Note that 
because of line-buffering, readp may return T, 
indicating there is input in the buffer, but read 
may still have to wait. 

reads a line from the teletype, returning it as a 
list. If readp[T] is NIL, readline returns NIL. 
Otherwise it reads expressions, using read . 18 
until it encounters either: 

(1) a carriage-return (typed by the user) that is 
not preceded by any spaces, e.g. 

ABC; 

and readline returns (ABC) 

(2) a list terminating in a 1 , in which case 

the list is included in the value of 
readline . e.g. A B (C 0] and readline returns 
(A B (C 0)). 


reaap . 


readp[file] 


readlinet] 
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Readline actually has two arguments for use by the System, 
should consider it as a function of no arguments. 


but the user 


18 


Actually, readline performs (APPLY* LISPXREADFN T), as described in Section 
22. lispxreadfn is initially READ. 




(3) an unmatched right parentheses or right 
square bracket, which is not included in the 
value of readline . e.g. 

ABC] 

and raadlina raturns (A B C). 

In tho case that one or more spaces precede a carriage-return, or a list is 
terminated with a ')', readline will type ’and continue reading on the 

IQ 

next line, e.g. 

ABC; 

...(D”*E F) 

...(X Y Z] 


and readline returns (A B C (D E F) (X Y Z)). 

skread[file;rereadstring] 20 is a skip read function. It moves the file 

pointer for file ahead as if one call to read had 
been performed, without paying the storage and 
conpute cost to really read in the structure. 
rereadstring is for the case where the user has 
already performed some readc 's and ratom's before 
deciding to skip this expression. In this case, 
rereadstring should be the material already read 
(as a string), and skread operates as though it 


If the user then types another carriage return, the line will terminate 
e.g. 

A B C_f 

and readline returns (ABC) 

20 

skread was written by J.W. Goodwin. 
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had seen that material first, thus getting its 
paren-count, double-quote count, etc. set up 
properly. 

The value of skread is X) if the first thing 
encountered was a closing paren; X] if the read 
terminated on an unbalanced X], i.e. one which 
also would have closed ,any extant open left 
parens; otherwise the value of skread is MIL. 


14.3 Output Functions 

Most of the functions described below have an (optional) argument file which 
specifies the name of the file on which the Operation is to take place. If 
that argument is NIL, the primary output file will be used. 

Note, in all INTERLISP symbolic files, end-of-line is indicated by the 
c haracters carriage-return and line-feed in that order. Unless otherwise 
stated, carria ge-return appearing in the description of an output function 
means carriage-return and line-feed. 

prinl[x;file] priints x on file . 

prin2[x;file] prints x on file with X's and "'s inserted where 

required for it to read back in properly by read . 

P~rA n 1 an d PrinZ print lists as well as atoms and strings; prinl is usually 
used only for explicitly printing formatting characters, e.g. 

(PRIN1 (QUOTE X[)) might be used to print a left square bracket (the X would 
not be printed by prinl). prini! is used for printing S-expressions which can 
then be read back into INTERLISP with read i.e. regulär INTERLISP formatting 
characters in atoms will be preceded by X's, e.g. the atom '()' is printed as 
X(X) by grin 2 . if radix=8, prin2 prints a § after integers but prinl does not 
(but both print the integer in octal). 
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prin3[x;file] Prints 5 with %'s and "'s inserted where required 

for it to read back in properly by uread . i.e. 
uses Separator and break characters specified by 
setbrk and setsepr to deteroine when to insert 
%'s. 

print[x;file] Prints the S-expression x using prin2 : followed by 

a carriage-return line-feed. Its value is x. 

For oll printing functions, pointers other than lists, strings, atoms, or 
numbers, are printed as FW, where N is the oetal representation of the address 
of the pointer (regardless 0 / radix). Note that this will not read back in 
correctly, i.e., it will read in as the atom ’FN'. 


spaces[n;file] 


Prints h spaces; its value is NIL. 


terpri[file] 


Prints a carriage-return; its value is NIL. 


Printlevel 

The print functions print . prinl . prin2 . and prin3 are all affected by a level 
Parameter set by 

printlevel[n] Sets print level to n, value is old setting. 

Initial value is 1000. printlevelt] gives current 
setting. 

The variable n Controls the number of unpaired left parentheses which will be 
printed. Below that level, all lists will be printed as &. 

Suppose x = (A (B C (D <E F) G) H) It). Then if n * 2, printCx] would print 
(A (B C & H) K), and if n « 3 , (A (B C (D & G) H) K), and if n ■ 0, just &. 
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If printlevel is negative, the action is similar except that a carriage-return 
is inserted between all occurrences of right parenthesis immediately followed 
by a left parenthesis. 

The printlevel setting can be changed dynamically, even while INTERLISP is 
printing, by typing control-P followed by a number, i.e. a strlng of digits, 
followed by a period or exclamation point. 21 The printlevel will immediately be 

po 

set to this number. If the print routine is currently deeper than the new 

level, all unfinished lists above that level will be terminated by 
Thus, if a circular or long list of atoms, is being printed out, typing 
control-PO. will cause the list to be terminated. 

If a period is used to terminate the printlevel setting, the printlevel will be 
returned to its previous setting after this printout. If an exclamation point 
is used, the change is permanent and the printlevel is not restored (until it 
is changed again), 

Note, printlevel only affects teletupe output. Output to all other fites acts 
as though level is infinite. 


As soon as control-P is typed, INTERLISP clears and saves the input buffer, 
clears the output buffer, rings the bell indicating it has seen the 
control-P, and then waits for input which is terminated by any non-number. 
The input buffer is then restored and the program continues. If the input 
was terminated by other than a period or an exclamation point, it is 
ignored and printing will comtinue, except that characters cleared from the 
output buffer will have been lost. 


Another way of "turning off" output is to type control-O, which simply 
clears the output buffer, thereby effectively skipping the next (up to) 64 
characters. 
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14.4 Input/Output Control Functions 


clearbuf[f ile;flg] Clears the Input buffer for file . If file is T 

and flg is T, contents of INTERLISP's line buffer 
and the System buffer are saved (and can be 
obtained via linbuf and sysout described below). 
When either control-D, control-E, control-H, 
control-P, or control-S is typed, INTERLISP 
automatically does a clearbuf[T;T]. (For control-P 
and control-S, INTERLISP restores the buffer after 
the interaction. See Appendix 3.) 

linbuf [flg] if flg-T, value is INTERLISP's line buffer (as a 

string) that was saved at last clearbuf[T;T]. If 
flg sNIL. clears this internal buffer. 

sysbuftflg] same as linbuf for system buffer. 

If both the system buffer and INTERLISP's line buffer are empty, the internal 
buffers associated with linbuf and sysbuf are not changed by a clearbuf[T;T]. 

bklinbuf[x] x is a string. bklinbuf sets INTERLISP's line 

buffer to x. If greater than 160 characters, 
first 160 taken. 

bksysbuf[x] x is a string. bksysbuf sets system buffer to x. 

The effect is the same as though the user typed x. 

bklinbuf , bksysbuf . linbuf . and sysbuf provide a way of 'undoing' a clearbuf . 
Thus if the user wants to "peek* at various characters in the buffer, he could 
perform clearbuf[T;T], examine the buffers via linbuf and sysbuf . and then put 
them back. 
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radixtn] 


fltfmtfn] 


linelength[n] 


Resets output radix 33 to |n| with sign indicator 
th# sign of n. For example, -9 will print as 
shown with the following radices: 

radix printing 

10 -9 

-10 68719476727 

i.e. (2t36-9) 

8 -1 IQ 

-8 777777777767Q 

Value of radix is its last setting. radixt] gives 
current setting without changing it. Initial 
setting is 10. 

Sets floating format control to n (See TENEX JSYS 
manual for Interpretation of n). fltfmt[T] 
specifies free format (see Section 3). Value of 
fltfmt is last setting. fltfmt[] returns current 
setting without changing it. Initial setting is 
T. 


Sets the length of the print line for all files. 
Value is the former setting of the line length. 
Whenever printing an atom would go beyond the 
length of the line, a carriage-return is 
automatically inserted first. linelengthf] 
returns current setting. Initial setting is 72. 
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Currently, there is no input radix. 




Position!file] Gives the column number the next character will be 

read from or printed to, e.g. after a 
carriage-return, position »0. Note that 
Position!file] is not the same as sfptr!file] 
which gives the Position in the file, not on the 
line. 

Line-buffering and CONTROL 

In INTERLISP's normal state, characters typed on the teletype (this section 
does not apply in any way to input from a file) are transferred to a line 
buffer. Characters are transmitted from the line buffer to whatever input 
function initiated the request (i.e., read , uread , ratom . rstring . or readc ) 2 ^ 
only when a carriage-return is typed. 26 Until this time, the user can delete 
characters one at a time from the input buffer by typing control-A. The 
characters are echoed preceded by a \. Or, the user can delete the entire line 
buffer back to the last carriage-return by typing control-Q, in which case 
INTERLISP echoes ##. 26 (If no characters are in the buffer and either control-A 
or control-Q is typed, INTERLISP echoes ##.) 

Note that this line editing is not performed by read or ratom . but by 
INTERLISP, i.e. it does not matter (nor is it necessarily known) which function 
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peekc is an exception; it returns the character immediately. 

As mentioned earlier, for calls from read or uread , the characters are also 
transmitted whenever the parentheses count reaches 0. In this case, if the 
second argument to read or uread is NIL, INTERLISP also Outputs a carriage- 
return line-feed. 


ZG 

Typing rubout clears the entire input buffer at the time it is typed, 
whereas the action of control-A and control-Q occurs at the time they are 
read. Rubout can thus be used to clear type-ahead. 
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will ultimately process the characters, only that they are still in the 
INTERLISP input buffer. Note also that it is the function that is currently 
requesting input that determines whether parentheses counting is observed, e.g. 
if the user execgtes (PROGN (RATOM) (READ)) and types in A (B C D) he will have 
to type in the carriage-return following the right parenthesis before any 
action is taken. whereas if he types (PROGN (READ) (READ)) he would not. 
However, once a carriage-return has been typed, the entire line is 'available' 
even if not all of it is processed by the function initiating the request for 
input, i.e. if any characters are 'left over', they will be returned 
immediately on the next request for input. For example, 
(PROGN (RATOM) (READC)) followed by A B carriage-return will perform both 
operations. 

Turning-off Line-buffering 

The function control is available to defeat this line-buffering. After 
control[T], characters are returned to the calling function without line- 
buffering as described below. The function that initiates the request for 
input determines how the line is treated: 

1 . read / uread 

if the expression being typed is a list, the effect is the same as though 
control were NIL, i.e. line-buffering until carriage-return or matching 
parentheses. If the expression being typed is not a list, it is returned as 
soon as a break or Separator character is encountered, 27 e.g. (READ) followed 

An exception to the above occurs when the break or Separator character is a 
(. , °r [, since returning at this point would leave the line buffer in a 
A^ nn ^, State- ^ Thus if contro1 is T and (READ) is followed by 'ABC(', the 
abc will not be read until a carriage-return or matching parentheses is 
encountered. In this case the user could control-Q the entire line, since 
all of the characters are still in the buffer. 


14.24 




by ABC space will immediately return ABC. Control-A and control-Q editing are 
svailable on those characters still in the buffer. Thus, if a program is 
performing several reads under control[T], and the user types NOW IS THE TIME 
followed by control-Q, he will delete only TIME since the rest of the line has 
already been transmitfted to read and processed. 

2 . ratom 

characters are returned as soon as a brfeak or Separator character is 
encountered. Before then, control-A and control-Q may be used as with read , 
e.g. (RATOM) followed by ABCcontrol-Aspace will return AB. (RATOM) followed by 
(control-A will return ( and type ## indicating that control-A was attempted 
with nothing in the buffer, since the ( is a break character and would 
therefore already have been read. 


3. readc / peekc 

the character is returned immediately; no line editing is possible. In 
particular, (READC) followed by control-A will read the control-A, (REAOC) 
followed by % will read the X. 


controlCu] 


usT eliminates INTERLISP's normal line- 

buffering. 

u=NIL restores line-buffering (normal). 

u=0 eliminates echo of character being 

deleted by control-A. 
u=l restores echo (normal). 


The value of control when u=T or NIL is its 
previous line-buffering setting, i.e. T or NIL. 
When u=0 or 1, its value is its previous echo 
setting, i.e. 0 or i. 
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14.5 Special Functions 


sysout[file] Saves the user's private memory on file . Also 

saves the Stacks, so that if a program performs a 
sysout , the subsequent sysin will continue from 
that point, e.g. 

(PROGN (SYSOUT (QUOTE FOO)) (PRINT (QUOTE HELLO))) 
will cause HELLO to be printed after 
(SYSIN (QUOTE FOO)) The value of sysout is file 
(full name). A value of NIL indicates the sysout 
was unsuccessful, i.e., either disk or Computer 
error, or user's directory was full. 


Sysout does not saue the state of any open fites. 


Whenever the INTERLISP System is reassembled and/or reloaded, old sysout fites 
are not compatible. 

sysin[file] restores the state of INTERLISP from a sysout 

fil®. Value is list[file]. If sysin returns NIL, 
there was a Problem in reading the file. If the 
file was not found or is incompatible (see note 
above), generates an error, FILE NOT COMPATIBLE. 


Since §j[sin conttnues immediately where sysout left off, the only way for 

t0 * de . ter ' mi J' e uhether it is just coming back from a sysin or from 
sysout is to test the value of s ysout . 


a 

a 


For example, (COND ((LI5TP (SYSOUT (QUOTE FOO))) (PRINT (QUOTE HELLO)))) will 
cause HELLO to be printed follcwing the sysin . but not when the sysout was 
performed. 


14.26 



14.6 Symbolic File Input 

load[file;ldflg;printflg] Reads successive S-expressions fron» f Ile and 

evaluates each as it is read, until it reads 
either NIL, or the single atom STOP. Value is file 
(full name). 

If printflg »T. load prints the value of each S- 
expression; otherwise it does not. ldflg affects 
the Operation of define, defineg , rpaq , and rpaqq . 
While load is operating, dfnflg (Section 8) is 
reset to ldflg . 2 * Thus, if ldflg =NIL. and a 
function is redefined, a message is printed and 
the old definition saved. If ldf!g =T. the old 
definition is simply overwritten. If ldflg aPROP. 
the function definitions are stored on the 
property lists under the property EXPR. If 
ldflq sALLPROP. not only function definitions but 
also variables set by rpaqq and rpaq are stored on 
property lists. 22 

loadfns[fns;file;ldflg] 30 peroits selective loading of function definitions. 

fns is a list of function names, a single function 
name, or T, meaning all functions (but no 


23 -------- 

Usin 9 resetvar (Section 5). dfnflg cannot simply be rebound because it is 
a GLOBAL variable. See Section 18. 


except when the variable has value NOBINO, in which case it is set to the 
indicated value regardless of dfnflg . 


SO 

loadfns was written by J.W. Goodwin. 
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variables, property values, etc,), file can be 


readfile[file] 


If a compiled 
subfunctions. 
Section 18) the 


elther a compiled or symbolic file, i.e., any file 
that can be loaded by load . file is opened and 
scanned in the manner of load , and every function 
definition found for a function oft fns is 
loaded. The Interpretation of Idflg is the same 
as for load . 

loadfns uses skread (page 14.17) and lcskip (a 
subfunction of recompile ) to skip over undesired 
material on the file, and so it is very efficient. 
The value of loadfns is a list of those functions 
loaded plus a list of those functions not found 
(if any) headed by the atom NOTFOUND:, e.g., 
(F00 FIE (NOTFOUND: FUM)). 

Reads successive S-expressions from file using 
fead until the single atom STOP is read, or an end 
of file encountered. Value is a list of these S- 
expressions. 


definition is loaded, so are all Compiler generated 
Note however if fns specifies entries to a block (see 
user must also specify the block itself. 
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14.7 Symbolic File Output 


writefile[x;file;dateflg] Writes successive 5-expressions from x on file . 

If x is atomic, its value is used. If fila is not 
open, it is opened. If the first expression on x 
is the type produced by printdate . or if dateflg 
is T, a new date expression is written. If file 
is a list, car[file] is used and the file is left 
opened. Otherwise, when x is finished, a STOP is 
printed on file and it is closed. Value is file. 


PPt x 3 nlambda, nospread function that performs output[T] 

and then calls prettyprint: PP FOO is equivalent 
to PRETTYPRINT((FOO)); PP(FOO FIE) or (PP FOO FIE) 
is equivalent to PRETTYPRINT((FOO FIE)). 

Primary output file is restored after printing. 


prettyprint[Ist] 32 33 Ist is a list of functions (if atomic, its value 

is used). The definitions of the functions are 
printed in a pretty format on the primary output 
file. For example, 


(FACTORIAL 
CLAMBDA (N) 

(COND 

((ZEROP N) 

1 ) 

(T (ITIMES N (FACTORIAL (SUB1 N]) 


The prettyprint pacfcage was written by W. Teitelman. 


prettyprint has a second argument that is T when called from prettydef. In 
this case, whenever prettyprint Starts a new function, it prints (on the 
teletype) the name of that function if more than 30 seconds (real time) 
have elapsed since the last time it printed the name of a function. 
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Note: prettyprint will operate correctly on functions that are broken , 

broken-in, advised . or have been compiled with their definitions saved on thelr 
property lists - it prints the original, pristine definition, but does not 
change the current state of the function. If prettyprint is given an atom 
which is not the name of a function, but has a value, it will prettyprint the 

A4 

value.° Otherwise, prettyprint will perforn spelling correction. If all 
fails, prettyprint returns (atom NOT PRINTABLE). 

Comment Feature 


A facility for annotating INTERLISP functions is provided in prettyprint . Any 

S-expression beginning with * is interpreted as a comment and printed in the 

■ / 

right margin. Example: 


(FACTORIAL 
[LAMBDA (N) 

(COND 

((ZEROP N) 

1 ) 

(T 

(ITIMES N (FACTORIAL (SUB1 


(* COMPUTES N!) 


(* 0 !* 1 ) 

(* RECURSIVE DEFINITION: 
N!=N*N-lt) 


These comments actually form a part of the function definition. Accordingly, * 
is defined as an NLAMBDA NOSPREAD function that returns its argument, i.e. it 
is equivalent to quote . When running an interpreted function, * is entered the 
same as any other INTERLISP function. Therefore, comments should only be 
placed where they will not harm the computation, i.e. where a quoted expression 
could be placed. For example, writing 

(ITIMES N (FACTORIAL (SUB1 N)) (*' RECURSIVE DEFINITION)) in the above function 
would cause an error when ITIMES attempted to multiply N, N-l!, and RECURSIVE. 
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except when prettyprint is called from prettydef . 
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For Compilation purposes, * is defined as a macro which compiles into no 
instructions. Thus, if you compile a function with comments, and load the 
compiled definition into another System, the extra atom and list structures 
storage required by the comments will be eliminated. This is the way the 
comment feature is intended to be used. For more options, see end of this 
section. 

Comments are designed mainly for documenting listtngs. Thus when 
prettyprinting to the teletype, comments are suppressed and printed as the 
String **C0MMENT**. 36 

Prettydef 

prettydef[prettyfns;prettyfile;prettycoms] 33 Used to make symbolic files 

that are suitable for loading which contain 
function definitions, variable settings, property 
lists, et al, in a prettyprint format. 

The arguments are interpreted as follows: 

prettyf ns Is a list of function names. 

The functions on the list are prettyprinted 
surrounded by a (DEFINEQ ...) so that they can be 


The value of **comment»*flg determines the action. If **comment**flg is 
NIL, the comment is printed. Otherwise, the value of **comment**flg is 
printed. *»comment»*flg is initially set to " *»COMMENT** ". The function 
PP* is provided to prettyprint functions, including their comments, to the 
teletype. pp* operates exactly like ££ except it first sets »*comment**flg 
to NIL. 


36 


grettydef actually has two additional arguments for use by the System. 
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loaded with load . If prettyfns is atomic (the 
preferred usage), its top level value is used as 
the llst of function names, and an rpaqq ^ will 
also be written which will set that atora to the 
list of functions when the file is loaded. A 
print expression will also be written which 
informs the user of the named atom or list of 
functions when the file is Subsequently loaded. 

prettyfile is the name of the file on which the output is to 

be written. 

The following options exist: 

prettyfile sNIL 

The primary output file is used. 

prettyfile atomic 

The file is opened if not already open, 
and becomes primary output file. File 
is closed at end of prettydef and 
primary output file is restored. 

prettyfile a list 

Car of the list is assumed to be the 
file name, and is opened if not already 
open. The file is left open at end of 
prettydef . 


npaqq and rpag a «"e Hk® setqq and setq . except they set the top level 
value. See Section 5. 
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prettycoms 


Is a list of commands interpreted as described 
below. If prettycoms is atomic (the preferred 
usage), its top level value is used and an rpaqq 
is written which will set that atom to the list of 
commands when the file is subsequently loaded, 
exactly as with prettyfns . 

These commands are used to save on the output file top level bindings of 
variables, property lists of atoms, miscellaneous I^ITERLISP forms to be 
evaluated upon loading, arrays, and advised functions. It also provides for 
evaluation of forms at ouput time. 

The Interpretation of each command in the command list is as follows: 

1 . if atomic, an rpaqq is written which will restore the top level value of 
this atom when the, file is loaded. 

2. (PROP propname atom 1 ... aton» n ) an appropriate deflist will be written 
which will restore the value of propname for each atom^ when the file is 
loaded. If propname sALL, the values of all user properties (on the 
property list of each atom i ) are saved. 33 If propname is a list, deflist's 
will be written for each property on that list. 

3. (ARRAY atomj ... atom n ), each atom following ARRAY should have an array as 
its value. An appropriate expression will be written which will set the 
atom to an array of exactly the same size, type, and contents upon loading. 


sysprops is a list of properties used by system functions, Only properties 
not on that list are dumped when the ALL Option is used. 
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4. (P ... ), each S-expression following P will be printed on the output file, 
and consequently evaluated when the file is loaded. 

(E ... ), each form following E will be evaluated at output time, i.e., 
when prettydef reaches this command. 

5. (FNS fn. ...fn ), a defineq is written with the definitions of fn, ... fn 

111 i m 

exactly as though (fnj ...fn m ) where the first argument to prettydef . For 
example, suppose the user wanted to set some variables or perform some 
computations in a file befoire defining functions, he would then write the 
definitions using the FNS command instead of the first argument to 
prettydef . 

7. (VARS varj ... var n ), for each varj, an expression will be written which 
will set its top level value when the file is loaded. If var^ is atomic, 
varj will be set to the top-level value it had at the time the file was 
prettydefed, i.e. (RPAQQ var^ top-level-value) is written. If var^ is 
non-atomic, it is interpreted as (var form). e.g. 
(FOO (APPEND FIE FUM)) or (FQO (QUOTE (F001 F002 F003))). In this case the 
expression (RPAQ var form) is written. 

8 . (ADVISE fnj ... fn ffl ), for each fn n , an appropriate expression will be 
written which will reinstate the function to its advised state when the 
file is loaded. 

9. (ADVICE fnj ... fn m ,), for each fn it will write a deflist which will put 
the advice bach on the property list of the function. The user can then 
use readvise to reactivate the advice. See Section 19. 

10. (BLOCKS blockj ... block n ) for each blockj, a declare expression will be 

written which the block complle functions Interpret as block declarations. 
See Section 18. 
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11. (COMS coroj ... com n ), each of the cororoands conij ... com n will be 
interpreted as ä prettydef command. 

12. (ADDVARS (var-j . lstj) ... (vai* n . lst n )) For each var^, the effect is the 
same as (RPAQ var i (UNION lst^ var^)), i.e. each element of lst A not a 
merober of varj (at load time) is added to it. var ^ can initially be 
NOBIND, in which case it is first set to NIL. 

13. (USERMACROS atom^ ... atom n ), each atom^ is the name of a user edit roacro. 
USERMACROS writes expressions for adding the definitions to usermacros and 
the names to the appropriate spelling lists. (USERMACROS) will save all 
user edit macros. 

14. (IFPROP propname atonjj ... atom n ) same as PROP command, except that only 
non-NIL property values are saved. For example, if F001 has property PROP1 
and PR0P2, F002 has PR0P3, and F003 has property PR0P1 and PR0P3, 
(IFPROP (PR0P1 PR0P2 PR0P3) FOOl F002 F003) will save only those 5 property 
values. 

15. (COMPROP propname atom, ... atomn) same as PROP command, except that the 
corresponding deflist expression will also be evaluated when the file is 
compiled. Useful for outputting MACROs. 

16. (COMPROP* propname atom, ... atomn), same as COMPROP except that the 
corresponding deflist expressions are not copied to the compiled file by 
tcompl , bcompl , recompile . or brecompile . 

17. (PD ...), like P except that the corresponding S-expressions are also 
printed as DECLARE expressions, and thus will be evaluated when the file is 
compiled. In other words, (PD (DEFLIST (QUOTE —) (QUOTE propname)) is 
essentially equivalent to (COMPROP propname —). 
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In each of the comraands described above, if the atom * follows the command 
type, the form following the *, i.e., caddr of the command, is evaluated and 
its value used in executing the command, e.g., (FNS * (APPEND FN51 FNS2)). SÖ 
Note that (COM3 * form) provides a way of computing what should be done by 
prettydef . 

New Prettydef comraands can be defined via prettymacros (see page 14.40). If 
£T.gt.tydef is given a command not one of the above, and not defined on 
prettymacros , it attempts spelling correction^ using prettycomsplst as a 
spelling list. If successful, the corrected Version of prettycoms is written 
(again) on the output fiie.^ If unsuccessful, prettydef generates an error, 
BAD PRETTYCOM. 


Except for the PROP, IFPROP, COMPROP, and COMPROP* commands, in which case 
the * must follow the property narae, e.g., (PROP MACRO * FOOMACROS). 
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unless dwimflg =NIL. See Section 17. 
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since at this point, the uncorrected prettycoms would already have been 
printed on the output file. When the file is loaded, this will result in 
fir ettycoms being reset, and a message printed, e.g. (FOOVARS RESET). The 
value of FOOVARS would then be the corrected Version. 
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Exatnple : 


*-SET(FOOFNS (F001 F002 F003)) 

♦•SET( FOOVARS (FIE (PROP MACRO FOOl F002) (P (MOVO (QUOTE FOOl) 
(QUOTE FIE1] 

-PRETTYDEF(FOOFNS FOO FOOVARS) 


would create a file FOO containing 


1. A message which prints the time and date the file was made (done 
automatically) 

2. DEFINEQ followed by the definitions of FOOl, F002, and F003 

3. (PRINT (QUOTE FOOFNS) T) 

4. (RPAQQ FOOFNS (FOOl F003 F003)) 

5. (PRINT (QUOTE FOOVARS) T) 

6 . (RPAQQ FOOVARS (FIE ...) 

7. (RPAQQ FIE value of fie) 

8 . (OEFLIST (QUOTE ((FOOl propvalue) (F002 propvalue))) (QUOTE HACRO)) 

9. (MOVD (QUOTE FOOl) (QUOTE FIE1)) 

10. STOP 

printfns[x] 


printdate[file;changes] 


tab[pos jminspaces;file] 


x is a list of functions. printfns prints defineq 
and prettyprints the functions. Used by 
prettydef , i.e. command (FNS * FOO) is äquivalent 
to command (E (PRINTFNS FOO)). 

prints the expression at beginning of prettydefed 
files that upon loading types the time and date 
the file was made, and Stores this time and date 
on the property list of file under the property 
FILEDATE, changes is for use by the file package. 

performs appropriate number of spaces to move to 
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Position gos. minspaces indicates the miniraum 
nuraber of spaces to be printed by tab, i.e., it is 
intended to be small nuraber (if NIL, 1 is used). 
Thus, if Position + minspaces is greater than pos , 
tab does a terpri and then spacesfpos]. 

endfile[file] Prints STOP on file and closes it. 

printdef[expr;left;def] prints the expression expr on the primary output 

file in a pretty forraat. left is the left hand 
margin ( linelength determines the right hand 
margin). 2 is used if left =NIL. 

def*T means expr is a function definition, or a 
piece of one, i.e. prettyprint is essentially 
printdef[getd[f n ];NIL;T]. If def=NIL, no special 
action will be taken for LAMBDA's, PROG's, COND's, 
comraents, CLISP, etc. def is NIL when prettydef 
calils prettyprint to print variables and property 
lists, and when printdef is called from the editor 
via the command PPV. 


Special Prettyprint Controls 

All variables described below, i.e., #rpars . firstcol , et al, are globalvars . 

see Section 18. Therefore, if they are to be changed, they must be reset, not 
rebound. 


#rpars 


Controls the number of right parentheses necessary 
for square bracketing to occur. If #rpars «NIL. no 
brackets are used. #rpars is initialized to 4. 
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linelength[n] 


determines the Position of the right margin for 
prettyprint . 


firstcol is the starting column for comroents. Initial 

setting is 48. Comments run between firstcol and 
linelength . If a word in a comment ends with a 
'.' and is not on the list abbrevlst . and the 
Position is greater than halfway between firstcol 
and linelength . the next word in the comment 
begins on a new line. Also, if a list is 
encounjtered in a comment, and the Position is 
greatelr than halfway, the list begins on a new 
line. | 

prettylcom If a comment is bigger (using count ) than 

prettylcom in size, it is printed starting at 
column 10, instead of firstcol . prettylcom is 
initialized to 14 (arrived at empirically). 

widepaper[flg] widepaper[T] sets linelength to 120, firstcol to 

80 and prettylcom to 28. This is a useful setting 
for prettyprinting files to be listed on wide 
paper. widepaper[] restores these Parameters to 
their initial values. The value of widepaper is 
its previous setting. 

commentflg If car of an expression is eg to commentflg , the 

expression is treated as a comment. commentflg is 
initialized to *. 

prettyflg If prettyflg is NIL, printdef uses prin2 instead 
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of prettyprinting. This is useful for producing a 
fast symbolic dunp (e.g. when TENEX is very slow.) 
Note that the file loads the sarae as if it wäre 
prettyprinted. prettyflg is initially set to T. 

clispifyprettyflg if t, causes prettyprint to clispify each function 

definition before printing. See Section 23. 
clispifyprettyflg is initially NIL. 

prettymacros Is an assoc-type list for defining Substitution 

macros for prettydef . If (FOO (X Y) . coms) 
appaars on prettymacros . then (FOO A B) appearing 
in the third argument to prettydef will cause A to 
be substituted for X and B for Y throughout coms 
(i.a., cddr of the macro), and then coms treated 
as a list of commands for prettydef . 

E A comment of this form causes x to be evaluated at 

prettyprint time, e.g., (* E (RADIX 8)) as a 

comment in a function containing octal numbers can 
be used to change the radix to produce more 
readable printout. The comment is also printed. 


Converting Comments to Lower Case 

This section is for users operating on terminals without lower case who 
nevertheless would like their comments to be converted to lower case for more 
readable line-printer listings. Users with lower-case terminals can skip to 
the File Package sections (as they can type comments directly in lower case). 
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XX 


If the second atom in a comraent is XX, the text of 
the comment is converted to lower case so that it 
looks like English instead of LISP (see next 
page). 

The output on the next page illustrates the result of a lower casing Operation. 
Before this function was prettydefed , all comments consisted of upper case 
atoms, e.g., the first comment was (* XX INTERPRETS A SINGLE COMMANO). Note 
that comments are converted only when they are actually written to a file by 
prettydef . 

The algorithm for conversion to lower case is the following: If the first 
character in an atom is ♦, do not change the atom (but remove the t). If the 
first character is X, convert the atom to lower case. 42 If the atom 42 is an 
INTERLISP word, 44 do not change it. Otherwise, convert the atom to lower case. 
Conversion only affects the upper case alphabet, i,e. f atoms already converted 
to lower case are not changed if the comment is converted again. When 
converting, the first character in the comment and the first character 
following each period are left capitalized. After conversion, the comment is 
physically modified to be the lower case text minus the XX flag, so that 
conversion is thus only performed once (unless the user edits the comment 
inserting additional upper case text and another XX flag). 


42 User must type XX as X is the escape character. 

43 minus any trailing punctuation marks. 

44 i.e., is a bound or free variable for the function containing the comment, 
or has a top level value, or is a defined function, or has a non-NIL 
property list. 



(BREAKCOM 

[LAMBDA (BRKCOM BRKFLG) 

(PROG (BRKZ) 

TOP (SELECTQ 
BRKCOM 

[t (RETEVAL (QUOTE BREAK1) 
(QUOTE (ERROR]] 

(GO 


(BREAKCOM1 BRKEXP BRKCOM 
(BREAKEXIT)) 


(BREAKCOM1 BRKEXP BRKCOM 
(BREAKEXIT T)) 

(tWGO 


(BREAKCOM1 BRKEXP BRKCOM 
(BREAKEXIT)) 

(RETURN 


(* Interprets a 
single command.) 


(* Evaluate BRKEXP 
unless already evaluated, 
prlnt value, and exlt.) 
NIL BRKVALUE) 

(* Evaluate BRKEXP, 
unless already evaluated, 
do NOT prlnt value, 
and exlt.) 

BRKVALUE BRKVALUE) 

(* Same as GO except 
never saves evaluatlon 
on hlstory.) 

T BRKVALUE) 


(* User will type ln expresslon to be evaluated and 
returned as value of BREAK. Otherwlse same as GO.) 


") 


(BREAKCOM1 [SETQ BRKZ (COND 

(BRKCOMS (CAR BRKCOMS)) 

(T (LISPXREAD T] 

(QUOTE RETURN) 

NIL NIL (LIST (QUOTE RETURN) 

BRKZ)) 

(BREAKEXIT)) 

< EVAL (* Evaluate BRKEXP but 


(BREAKCOM1 BRKEXP BRKCOM) 
(COND 

(BRKFLG (BREAK2) 

(PRIN1 BRKFN T) 
(PRIN1 (QUOTE ■ 


do not exlt from BREAK 


EVALUATED 


) 


(SETQ !VALUE 
) 


T))) 

(CAR BRKVALUE)) 

(* For user's benefit 


) 
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lcaselst 


ucaselst 


abbrevlst 


l-case[x;flg] 


u-case[x) 


Words on lcaselst will always be converted to 
lower case. lcaselst is initialized to contain 
words whlch are INTERLISP functlons but also 
appear frequently in comments as English words. 
e.g. AND, EVERY, GET, GO, LAST, LENGTH, LIST, etc. 
Thus, in the example on the previous page, not was 
written as tNOT, and GO as fGO in order that they 
might be left in upper case. 

words on ucaselst (that do not appear on lcaselst ) 
will be left in upper case. ucaselst is 
initialized to NIL. 

abbrevlst is used to distinguish between 
abbreviations and words that end in periods. 
Normally, words that end in periods and occur more 
than halfway to the right margin cause carriage 
returns. Furthermore, during conversion to 
lowercase, words ending in periods, except for 
those on abbrevlst . cause the first character in 
the next word to be capitalized. abbrevlst is 
initialized to the upper and lower case forras of 
ETC. I.E. and E.G. 

value is lower case Version of x. If flg is T, 
the first letter is capitalized, e.g. 
l-case[FOO;T] = Foo, 1-casefFOO] * foo. If x is a 
string, the value of l*case is also a string, e.g. 
l-case["FILE NOT FOUND";T] » "File not found". 

Sioilar to 1-case 
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14.8 File Package 4 6 

This section describes a set of functions and conventions for facilitating fche 
bookkeeping involved with working in a large System consisting of many syrabolic 
files and their Compiled counterparts. The file package keeps track of which 
files have been in some way modified and need to be dumped, which files havo 
been dumped, but still need to be listed and/or recompiled. The functions 
described below comprise a coherent package for eliminating this bürden from 
the user. They require that for each file, the first argument to prettydef . 
(if any), be an atom of the form fileFNS, and the third argument, (if any), be 
fileVARS where file is the name of the file, e.g. 
pre t tydef [ FOOFNS; F00; FOOVARS ] 46 


The functions load , editf , editv, tcompl . recompile . bcoropl , brecompile , and 
DW1M interact with the functions and global variables in the file package as 
follows. Whenever load is called, its argument is added to the list fileist, 
and the property FILE, value (fileFNS fileVARS), is added to the property list 
of the file name. 1 ^ This property value is used to determine whether or not the 
file has been modified since the last time it was loaded or dumped. Whenever 
the user calls editf and changes a function, fileist is searched to find the 


45 - - ..-.------ 

The file package was written by W. Teitelman. It can be disabled by 
setting filepkgflg to NIL. 


46 

D le c ® n contain a suffix and/or Version number, e.g. 
PRETTYOEF(FOOFNS FOO.TEM;3 FOOVARS) is acceptable. The essential point is 
that the FNS and VARS be computable from the name of the file. 


47 

The name added to fileist has the Version number and directory field 
removed, if any. fileFNS and fileVARS are constructed using only the name 
field, i.e., If the user performs load[<TEITELMAN>F00.TEM;2], FOO.TEM is 
added to fileist , and (FOOFNS FOOVARS) put on the property list of FOO.TEM. 
ir the file was originally made under a different name, fileFNS and 
fileVARS are computed from the original name (which is obtained from the 
expression that printdate puts at the beginning of the file). 
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files 4Ä containing this function, i.e. the flies for which the function was 
either a meraber of fileFNS, or appeared in a FNS command on fileVARS. When 
(if) such flies are found, the name of the function is added, using /nconc , to 
the value of the property FILE for each file. Thus if the user loads the file 
FOO containing definitions for F001, F002, and F003, and then edits F002, 
getp[FOO;FILE] will be (FOOFNS FOOVARS F002) following the edit. A similar 
update takes place for calls to editv . 

Whenever the user dumps a file using makefile (described below), the file is 
added to fileist (if not already there) and its FILE property is reinitiallzed 
to (fileFNS fileVARS), indicating that the file is up to dato. In addition, 
the file is added to the list notlistedfiles and notcompiledflies . Whenever 
the user lists a file using listfiles . it is removed from notlistedfiles . 
Similarly, whenever a file is compiled by tcompl . recompile . bcoropl . or 
brecompile , the file is removed from notcompiledfiles . Thus at each point, the 
state of all flies can be determined. This Information is available to the 
user via the function files? . Similarly, the user can see whether and how each 
particular file has been modified, dump all files that have been modified, list 
all files that have been dumped but not listed, recompile all files that have 
been dumped but not recompiled, or any combination of any or all of the above 
by using one of the function described below. 


4ß ........ 

If the user has many files, with complex prettydef commands, this procedura 
could be time consuming. Therefore, in the Interests of efficiency, what 
really happens is the function name is simply consed onto the front of the 
list changedfnslst , and variable names are consed onto changedvarslst . 
Whenever the user calls files? . cleanup . makefiles , or any other Operation 
that actually looks at the FILE property, the function updatefiles is 
called which scans changedfnslst and changedvarslst and moves the 
function/variable names to the appropriate property lists. The user can 
explicitly perform this updating process by calling updatefiles . 
prettytypelst , page 14.50, provides a way of informing updatefiles about 
user-defined types ln addition to functions or variables. 
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makefile[file;options] 


adds file to fileist if not already there. Calls 


prettydef [ f ileFNS; file; fileVARS;NIL; changes ] , 49 

and then adds file to notlistedfiles , 

% 

notcompiledfiles .^ options is a list of options 
or a single Option interpreted as follows: 


FAST perform prettydef with prettyflg =NIL 

RC call recompile after prettydef or 

brecomplle if there are any block 
declarations specified in fileVARS. 


C calls tcompl after prettydef or bcompl 

if there are any block declarations 
specified in fileVARS. 


CLISPIFY 


perform prettydef with 
clispifyprettyflg =T, causing clispify 
(see Section 23) to be called on each 
function defiqition before it is 
prettyprinted. 


NOCILISP performs prettydef with prettytranflg =T. 

causing CLISP translations to be 
printed, if any, in place of the 
corresponding CLISP expression, e.g. 
iterative Statement. 


4g “ ------------ 

f ileFNS and fileVARS are constructed from the name field only, e.g. 

makefile[FOO.TEM] will work. changes is cddr of the FILE property, i.e. 
those items that have been changed since the last makefile . prettydef 
merges those changes with those handled in previous calls to makefile, and 
Stores the result on the property FILEDATE in the form 

(datel date2 changes), where datel is the date of the file that was 
originally loaded, date2 the date of the latest Version (i.e. this one), 
and changes (the Union of) all items that differ in the two files. 
printda te also includes this Information in the expression printed at the 
beginning of the file. 


except for files that do not contain any function definitions or those that 
have on their property list the property FILETYPE with value DON'TCOMPILE. 
Such files are not compiled even when options specifies C or RC, nor are 
they added to notcompiledfiles . 


Including any generated via the COMS command or via a prettymacro. 


Another way to accomplish this is to put on the property list of the file 
under the property FILETYPE the value CLISP. In this case, the Compiler 
will also know to dwimify the functions before compiling. 
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LIST calls listfiles on file . 

For the three compile options, if F or ST is the next Option, it will be given 
to the Compiler as the answer to the compiler's question LISTING?, e.g. 
makefile[FOO;(C F # LIST)] will dump F00, then tcompl or bcompl it without 
redefining any functions, and finally list the file. 

The user can indicate that file must be block compiled with other files by 
putting a list of those files on the property list of each file under the 
property FILEGROUP;. For example, EDIT and WEDIT are one such group, DWIM, 
FIX, CLISP, and DWIMIFY another. If file has a FILEGROUP; property, the 
Compiler will not be called until all files on this property have been dumped 
that need to be. In the case of recompiling, brecompile will be called with 
coreflg sT only if all of the files in the group are currently in core. 

makefiles[options;files] For each file on files that has been changed, 53 

performs makefile[file;options], If files « NIL, 
fileist is used, e.g. makefiles[LIST] will make 
and list all files. 3 * Value is a list of all files 
that are made. 

listfiles[files] nlambda, nospread function. Uses bksysbuf to load 

System buffer appropriately to list each file on 
files . (if NIL, notlistedfiles is used) followed 


except if the file is a compiled file, a message is printed and the 
makefile not performed. For example, if the user loads FOO.COM and then 
edits FOOVARS, when makef lies is called, the message 
"FOO.COM IS A COMPILEO FILE AND CANNOT BE OUMPEO." is printed. 

&4 

In this case f if any functions have been defined or changed that are not 
contained in one of the files on fileist , a message is printed alerting the 
user. 
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by a QUIT command, then calls a lower EXEC via 
subsys (section 21). The EXEC will then read froro 
the System buffer, list the files, and QUIT back 
to the program. 

Each file listed is removed from notlistedfiles if 
the listing is completed, e.g. if the user 
control-C's to stop the listing and QUITS. 

compilefiles[files] nlambda, nospread function. Executes the RC 

Option of makefile for each member of files . (If 
files =NIL. notcompiledfiles is used.) 

files7[] Prints on terminal the names of those files that 

have been modified but not dumped, dumped but not 
listed, dumped but not compiled, plus the names of 
those functions (if any) that are not contained in 
any file. 

cleanup[files] nlambda, nospread. Dumps, lists, and recompiles 

(or brecompiles ) any and all files on files 
requiring the corresponding Operation. If 
files « NIL, fileist is used. Value is NIL. 

Notei if both a compiled and symbolic Version of the same^ file appear on 
fileist , the compiled file is ignored by makefiles . files ? . and cleanup . 

whereis[x] x is either the name of a function or variable. 


i.e. the compiled file has a COM suffix and its fns and vars are the same 
as those of another (symbolic) file on fileist. 
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whereis sweeps through all the files on sysfiles 
and fllelst looking for files that define or set 
x, and prints the names of all such files found. 
whereis knows about and expands all prettydef 
commands and prettymacros . 

Note that whereis requires that the fileFNS and fileVARS of the files be 
available . However, the System fileFNS and fileVARS are clobbered to 
save space. To get them back., load the file <LISP>FNS/VARS . 

filefnslst[file] returns a list of the functions in file , i.e. 

specified by fileFNS and fileVARS. filefnslst 
knows about prettymacros . 

newfile2[name;coms;type] coms is a list of prettydef commands, type is 

usually FNS or VARS but may be BLOCKS, ARRAYS, 
etc. or the name of any other prettydef command. 
If name =NIL. newfile2 returns a list of all 
elements of type type , ( filefnslst and bcompl and 
brecompile use this Option.) 

If narce =T. newf ile2 returns T if there are any 
elements of type type , ( makefile uses this Option 
to determine whether the file contains any FNS, 
and therefore should be compiled, and if so, 
whether it contains any BLOCKS, to determine 
whether to call bcompl / brecompile or 
tcompl / recompile .) 

Otherwise, newfile2 returns T if name is 
"contained" in coms . ( whereis uses newfile2 in 
this way.) 
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M 


X 

If the user often employs prettyroacros , their expansion by the various parts of 
the system that need to interrogate files can result in a large number of 
conses and garbage collections. If the user could inform the file package as 
to what his various prettymacros actually produce, this expansion would not be 
necessary. For example, the user may have a macro called GRAMMARS which dumps 
various property list but no functions. Thus, the file package could ignore 
this comraand when seeking Information about FNS. The user can supply this 
Information by putting on the property list of the prettymacro, e.g. GRAMMARS, 
under the property PRETTYTYPE, 66 a function (or LAMBOA expression) of two 
arguments, com and type , where com is a prettydef command, and type is FNS, 
VARS, BLOCKS, etc. The result of applying the function to these arguments 
should be a list of those elements of type type contained in com. For example, 
the function corresporiding to GRAMMARS might be 
(LAMBDA( COM TYPE)(AND <EQ (CAR COM) TYPE)(EQ TYPE (QUOTE GRAMMARS) )(C0R COM)). 67 

Currently, the file package knows about two "types": functions and variables. 
As described in footnote on page 14.45, whenver a function or variable is 
changed, it is added to changedfnslst or changedvarslst respectively. 
Updatefiles operates by mapping down fileist and using newfileZ to determine if 
the corresponding file contains any of the functions on changedfnslst or 
changedvarslst . The user can teil the file package about other types by adding 
appropriate entries to prettytypelst . Each element of prettytypelst is a list 
of the form (name-of-changedlist type string), where String is optional. For 


If nothing appears on property PRETTYTYPE, the command is expanded as 
before. 


Note that since the function is given the entire command as an argument, 
the same function could be used for several different types. 
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example, prettytypelst is initially ((CHANGEOFNSLST FNS "Functions") 
(CHANGEDVARSLST VARS)). 60 If the user adds (CHANGEDGRAMLST GRAMMARS) to 
B£ettytypelst, then updatefiles will know to move elements on changedgr am lst to 
the FILE property for the files that contain thera. 6p 


If s treng is supplied, flies? will inforra the user if any elements remain 
on the changed list after updatefiles has completed. Similarly, makefiles 
will warn the user that some elements of this type are not going to be 
dumped in the event that it could not find the file to which they belonged. 


It is the user's responsibility to see that elements are added to the 
changed list in the first place. 
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SECTION 15 

DEBUGGING - THE BREAK PACKAGE* 


15,1 Debugging Facilities 

Debugging a Collection of LISP functions involves isolating Problems within 
particular functions and/or determining when and where incorrect data are being 
generated and transmitted, In the INTERLISP System, there are three facilities 
which allow the user to (temporarily) modify selected function definitions so 
that he can follow the flow of control in his programs, and obtain this 
debugging Information. These three facilities together are called the break 
package. All three redefine functions in terms of a System function, breakl 
described below. 

Break modifies the definition of its argument, a function fn, so that if a 
break condition (defined by the user) is satisfied, the process is halted 
temporarily on a call to fn. The user can then interrogate the state of the 
machine, perform any computation, and continue or return from the call. 

Trace modifies a definition of a function fn so that whenever fn is called, its 
arguments (or some other values specified by the user) are printed. When the 
value of fn is computed it is printed also, ( trace is a special case of 
break ). 


1 


The break package was written by W. Teitelman. 
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Breakin allows the user to insert a breakpoint instde an expression defining a 
function. When the breakpoint is reached and if a break condition (defined by 
the user) is satisfied, a temporary halt occurs and the user can again 
investigate the state of the coraputation. 

The following two examples illustrate these facilities. In the first example, 
the user traces the function factorial . trace redefines factorial so that it 
calls brea ^ 1 in such a way that it prints some Information, in this case the 
arguments and value of factorial . and then goes on with the computation. When 
an error occurs on the fifth recursion, breakl reverts to Interactive mode, and 
a full break occurs. The Situation is then the same as though the user had 
originally performed BREAK(FACTORIAL) instead of TRACE(FACTORIAL), and the user 
can evaluate various INTERLISP forms and direct the course of the computation. 
In this case, the user examines the variable n, and instructs breakl to return 
1 as the value of this cell to factorial . The rest of the tracing proceeds 
without incident. The user would then presumably edit factorial to change L to 
1 . 


In the second example, the user has constructed a non-recursive definition of 
factorial . He uses breakin to insert a call to breakl just after the PROG 
label LOOP. This break is to occur only on the last two iterations, i.e., when 
n is less than 2. When the break occurs, the user looks at the value of n. 
mistakenly typing NN. However, the break is maintained and no damage is done. 
After examining n and m the user allows the computation to continue by typing 
OK. A second break occurs after the next Iteration, this time with N=0. When 
this break is released, the function factorial returns its value of 120. 
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♦•PP FACTORIAL 


(FACTORIAL 
[LAMBDA (N) 

(COND 

((ZEROP N 
L) 

(T (ITIMES N (FACTORIAL (SUB1 N]) 
FACTORIAL 
-TRACE(FACTORIAL) 

(FACTORIAL) 

-FACTORIAL(4) 

FACTORIAL: 

N = 4 


FACTORIAL: 

N = 3 

FACTORIAL: 

N = 2 

FACTORIAL: 
N = 1 


FACTORIAL: 
N - 0 


U.B.A. 

L 

(FACTORIAL BROKEN) 

:N 

0 

:RETURN 1 

FACTORIAL =1 
FACTORIAL - 1 
FACTORIAL = 2 
FACTORIAL = 6 
FACTORIAL = 24 
24 
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-PP FACTORIAL 


(FACTORIAL 
[LAMBDA (N) 

(PROG ((M 1)) 

LOOP(COND 

((ZEROP N) 

(RETURN M))) 

(SETQ M (ITIMES M N)) 

(SETQ N (SUB1 N)) 

(GO LOOP]) 

FACTORIAL 

-BRFAK IN(FACTORIAL (AFTER LOOP) (ILESSP N 2] 
SEARCHING... 

FACTORIAL 
-FACTORIAL(5) 

((FACTORIAL) BROKEN) 

:NN 

U.B.A. 

NN 

(FACTORIAL BROKEN AFTER LOOP) 

:N 

1 

:M 

120 

:OK 

(FACTORIAL) 

((FACTORIAL) BROKEN) 

: N 
0 

:OK 

(FACTORIAL) 

120 


15.2 Breakl 


The basic function of the break package is breakl . Whenever INTERLISP types a 
message of the form (- BROKEN) followed by ':' the user is then 'talking to' 
breakl , and we say he is 'in a break.' breakl allows the user to interrogate 
the state of the worid and affeet the course of the computation. It uses the 
prompt character ':' to indicate it is ready to accept input(s) for evaluation, 
in the same way as evalqt uses The user may type in an expression for 
evaluation as with evalqt , and the value will be printed out, followed by 
another Or the user can type in one of the commands specifically recognized 
by breakl described below. 
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Since break 1 puts all of the power of INTERLISP at the user's command, ho can 
do anythlng he can do at evalqt . For example, he can Insert new breaks on 
subordlnate functlons slmply by typlng: 

(BREAK fnl fnZ ...) 

or he can remove old breaks and traces if too much Information is being 
supplied: 

(UNBREAK fn3 fn4 ...) 

He can edit functlons, including the one currently broken: 

EDITF(fn) 

For example, the user might evaluate an expression, see that the value was 
incorrect, call the editor, change the function, and evaluate the expression 
again, all without leaving the break. 

Similarly, the user can prettyprint functlons, define new functlons or redefine 
old ones, load a file, compile functlons, time a computation, etc. In short, 
anything that he can do at the top level can be done while Inside of the break. 
In addition the user can examine the pushdown list, via the functlons described 
in Section 1Z, and even force a return back to some higher function via the 
function retfrom or reteval . 

It is important to emphasize that once a break occurs, the user is in complete 
control of the flow of the computation, and the computation will not proceed 
without specific Instruction from him. If the user types in an expression 
whose evaluation causes an error, the break is maintained. Similarly if the 
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user aborts a computation 3 initiated from within the break, the break is 
maintained. Only if the user gives one of the commands that exits from the 
break, or evaluates a form which does a retfrom or reteval back out of breakl . 
will the computation continue. 3 

Note that breakl is just another INTERLISP function, not a special System 
feature like the Interpreter or the garbage collector. It has arguments which 
are explained later, and returns a value, the same as cons or cond or prog or 
any other function. The value returned by breakl is called 'the value of the 
break.' The user can specify this value explicitly by using the RETURN conunand 
described below. But in most cases, the value of a is given implicitly, via a 
GO or OK command, and is the result of evaluating 'the break expression,' 
brkexp , which is one of the arguments to breakl . 

The break expression is an expression equivalent to the computation that would 
have taken place had no break occurred. For example, if the user breaks on the 
function FOO, the break expression is the body of the definition of F00. When 
the user types OK or GO, the body of FOO is evaluated, and its value returned 
as the value of the break, i.e. to whatever function called FOO. The effect is 
the same as though no break had occurred. In other words, one can think of 
breakl as a fancy eval , which permits interaction before and after evaluation. 
The break expression then corresponds to the argument to eval. 


By typing control-E, see Section 16. 

Except that breakl does not 'turn off' control-D, i.e. a control-D will 
force an immediate return back to the top level. 
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Break Commands 


60 Releases the break and allows the computatlon to 

proceed. breakl evaluates brkexp , Its first 
argument, prints the value of the break, brkexp 
is set up by the function that created the call to 
breakl. For break or trace , brkexp is equivalent 
to the body of the definition of the broken 
function. For breakin , using BEFORE or AFTER, 
brkexp is NIL. For breakin AROUND, brkexp is the 
indicated expression. See breakin . page 15.19. 


OK 

Same as 60 except the value of 

brkexp is 

not 


printed. 





EVAL 

Same as GO or 

OK 

except that 

the break 

is 


maintained after 

the 

evaluation. 

The user 

can 


then interrogate 

the 

value of the 

break which 

is 


bound on the variable !value . and continue with 
the break. Typing 60 or OK following EVAL will 
not cause reevaluation but another EVAL will. 
EVAL is a useful command when the user is not sure 
whether or not the break will produce the correct 
value and wishes to be able to do something about 
it if it is wrong. 


RETURN form The value of the indicated computation is returned 

or as the value of the break. 

RETURN fn[args] For exarople, one raight use the EVAL command and 

follow this with RETURN (REVERSE !VALUE). 


♦ Calls error! and aborts the break, i.e. makes it 

"go away' without returning a value. This is a 
useful way to unwind to a higher level break. All 
other errors, including those encountered while 
executing the GO, OK, EVAL, and RETURN commands, 
maintain the break. 


!EVAL function is first unbroken, then evaluated, and 

then rebroken. Very useful for dealing with 
recursive functions. 


!OK Function is first unbroken, evaluated, rebroken, 

and then exited, i.e. !0K is equivalent to !EVAL 
followed by OK. 


!GO Function is first unbroken, evaluated, rebroken, 

and exited with value typed, i.e., IEVAL followed 
by 60. 
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UB 


unbreaks brkfn , e.g. 


(FCO BROKENS 

:UB 

FOO 


and FOO is now unbroken 


0 


resets the variable lastpos , which establishes a 
context for the commands ?=, ARGS, BT, BTV, BTV*, 
and EDIT, and IN? described below. lastpos is the 
Position of a function call on the push-down 
stack. It is initialized to the function just 
before the call to breakl , i.e. stknth[-l;BREAK 1 ] 

@ treats the rest of the teletype line as its 
argumont(s). It first resets lastpos to 
stknth[-l;BREAKl] and then for each atom on the 
line, 0 searches backward, for a call to that 
atom. The following atoms are treated specially: 

do not reset lastpos to 
stknth[-1;BREAK 1] but leave it as it 
was, and continue searching from that 
point. 

if negative, move lastpos back that 
number of calls, if positive, forward, 
i.e. reset lastpos to stknth[n;lastpos] 

search forward for next atom 

the next atom is. a number and can be 
used to specify more than one call e.g. 

0 FOO / 3 is äquivalent to 
0 FOO FOO FOO 

Example: 


■0 


numbers 


/ 


if the push-down stack looks like 
• 

BREAK1 (13) 

FOO (12) 

SETQ (11) 

COND (10) 

PROG (9) 

FIE (8) 

COND (7) 

FIE (6) 

COND (5) 

FIE (4) 

COND (3) 

PROG (2) 

FUM (1) 

then 0 FIE COND will set lastpos to the Position 
corresponding to (7); © @ COND will then set 
lastpos to (5); 0 FUM ♦- FIE to (4); and 
0 FIE / 3 -1 to (3). 

If 0 cannot successfully complete a search, it 
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types (fn NOT FOUND), where fn is the name of the 
function for which it was searching. 

When 0 finishes, it types the name of the function 
at lastpos . i.e. stknameClastpos] 

0 can be used on brkcoms . In this case, the next 
comraand on brkcoms is treated the same as the rest 
of the teletype line. 


This is a muiti-purpose command. Its most common 
use is to interrogate the value(s) of the 
arguments of the broken function, e.g. if FOO has 
three arguments (X Y Z), then typing ?■ to a break 
on FOO, will produce: 

: ?* 

X » value of X 
Y =- value of Y 
Z « value of Z 


?s operates on the rest of the teletype line as 
its arguments. If the line is empty, as in the 
above case, it prints all of the arguments. If 
the user types ?» X (CAR Y), he will see the value 
of X, and the value of (CAR Y). The difference 
between using ?= and typing X and (CAR Y) directly 
t0 braakl is that ?* evaluates its inputs as of 
lastpos , i.e. it uses stkeval . This provides a 
way of examing variables or performing 
computations as of a particular point on the 
stack. For example, 0 FOO / 2 followed by ?* X 
will allow the user to examine the value of X in 
the previous call to FOO, etc. 

?* also recognizes numbers as refering to the 
correspondingly numbered argument, i.e. it uses 
stkarg in this case. Thus 

:© FIE 
FIE 
:?= 2 

will print the name and value of the second 
argument of FIE. 

?= can also be used on brkcoms . in which case the 
next command on brkcoms is treated as the rest of 
the teletype line. For example, if brkcoms is 
(EVAL ?« (X Y) GO), brkexp will be evaluated, the 
values of X and Y printed, and then the function 
exited with its value being printed. 


Prints a backtrace of function names only starting 
at lastpos . (See discussion of 0 above) The 
several nested calls in System packages such as 
break, edit, and the top level executive appear as 
the single entries **BREAK«*, ««EDITOR**, and 
**T0P*« respectively. 



BTV 


Prints a backtrace of function names i aith 
variables beginning at lastpos . 


Same as BTV except also prints arguments of 
internal calls to eval . (See Section 12) 


BTV! Same as BTV except prints everything on stack. 

(See Section 12). 

BT, BTV, BTV*, and BTV! all perioit an optional functional argument which is a 
predicate that chooses functions to be skipped on the backtrace, e.g., BT SUBRP 
will skip all SUBRs, BTV (LAMBDA (X) (NOT (MEMB X FOOFNS))) will skip all but 
those functions on FOOFNS. If used as a brkcom the functional argument is no 
longer optional, i.e. the next brkcom raust either be the functional argument, 
or NIL if no functional argument is to be applied. 


For BT, BTV, BTV*, and BTV!, if control-P is used to Change a printlevel during 
the backtrace, the printlevel will be restored after the backtrace is 
completed. 


Prints the names of the variables bound at 
lastpos , i.e. variables[lastpos] (Section 12). 
For most cases, these are the arguments to the 
function entered at that Position, i.e. 
arglist[stkname[lastpos]]. 


The following two commands are for use only with unbound atoms or undefined 
function breaks (see Section 16). 


= form, = fn[args] only for the break following an unbound atom 

error. Sets the atom to the value of the form, or 
function and arguments, exits from the break 
returning that value, and continues the 
computation, e.g. 

U.B.A. 

(FOO BROKEN) 

:= (COPY FIE) 

sets FOO and goes on. 
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-> expr 


for use either with unbound atom error, or 
undefined function error. Replaces the expression 
containing the error with expr 4 (not the value of 
expr ) e.g., 

U.D.F. 

(FOOl BROKEN) 

:-> F00 

changes the FOOl to FOO and continues the 
computation. 

expr need not be atomic, e.g. 


U.B.A. 

(FOO BROKEN) 

:-> (QUOTE FOO) 

For U.D.F. breaks, the user can specify a function 
and initial arguments, e.g. 


U.D.F. 

(MEMBERX BROKEN) 

:-> MEMBER X 

Note that in the case of a U.D.F. error occurring 
immediately following a call to apply , e.g. 
(APPLY X Y) where the value of x is FOO and FOO is 
undefined, or a U.B.A. error immediately following 
a call to eval , e.g. (EVAL X), where the value of 
x is FOO and FOO is unbound, there is no 
expression containing the offending atom. In this 
case, -> cannot operate, so ? is printed and no 
action taken. 


EDIT designed for use in conjunction with breaks caused 

by errors. Facilitates editing the expression 
causing the break: 

NON-NUMERIC ARG 
NIL 

(IPLUS BROKEN) 

:EDIT 
IN FOO... 

(IPLUS X Z) 

EDIT 
*(3 Y) 

*0K 

FOO 


and user can continue by typing OK, EVAL, etc. 


-> does not change just brkexp ; it changes the function or expression 
containing the erroneous form. In other words, the user does not have to 
perform any additional editing. 


15.11 




This command is very simple conceptually, but complicated in its impleraentation 
by all of the exceptional cases involving inteactions with compiled functions, 
breaks on user functions, error breaks, breaks within breaks, et al. 
Therefore, we shall give the following simplified explanation which will 
account for 90% of the situatioris arising in actual usage. For those others, 
EOIT will print an appröpriate failure message and return to the break. 

EOIT begins by searching up the stack beginning at lastpos (set by @ command, 
initially Position of the break) looking for a form, i.e. an internal call to 
eval. Then EOIT continues from that point looking for a call to an interpreted 
function, or to eval . It then calls the editor on either the EXPR or the 
argument to eval in such a way as to look for an expression eg to the form that 
it first found. It then prints the form, and permits Interactive editing to 
begin. Note that the user can then type successive 0's to the editor to see 
the Chain of superforms for this computation. 

If the user exits from the edit with an OK, the break expression is reset, if 
possible, so that the user can continue with the computation by simply typing 
OK. However, in some Situation!;, the break expression cannot be reset. For 
example, if a compiled function F00 incorrectly called putd and caused the 
error ARG NOT ATOM followed by a break on putd . EOIT might be able to find the 
form headed by FOO, and also find that form in some higher interpreted 
function. But after the user corrected the problem in the FOO-form, if any, he 
would still not have in any way informed EOIT what to do about the immediate 
Problem, i.e. the incorrect call to putd . However, if FOO were interpreted 
EDIT would find the putd form itself, so that when the user corrected that 
form, EDIT could use the new corrected form to reset the break expression. The 
two cases are shown below: 


Evaluating the new brkexp will involve reevaluating the form that causes 
™? T brea ’ 1 ’ e ' 9 ’ if ( pUTD (QUOTE (FOO)) big-computation) were handled by 
EOIT, big-computation would be reevaluated. 
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ARG NOT ATOM 
(FUM) 

(PUTD BROKEN) 

:EDIT 
IN FIE . .. 

(FOO X) 

EDIT 

*(2 (CAR X)) 

*OK 

NOTE: BRKEXP NOT CHANGEO 
FIE 
:?= 

U = (FUM) 

:(SETQ U (CAR U)) 

FUM 

:OK 

PUTD 


ARG NOT ATOM 
(PUTO BROKEN) 
:EDIT 
IN FOO... 
(PUTD X) 

EDIT 

*(2 (CAR X)) 

*OK 

FOO 

:OK 

PUTD 


IN? similar to EDIT, but just prints parent form, and 

superform, but does not call editor, e.g. 

ATTEMPT TO RPLAC NIL 
T 

(RPLACD BROKEN) 

: IN? 

FOO: (RPLACD X Z) 


Although EDIT and IN? were designed for error breaks, they can also be useful 
for user breaks. For example, if upon reaching a break on his function FOO, 
the user determines that there is a Problem in the call t'o FOO, he can edit the 
calling form and reset the break expression with one Operation by using EDIT. 
The following two protocol's with and without the use of EDIT, illustrate this: 
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(FOO BROKEN) 



(FOO BROKEN) 

: ? = 



:?= 

X = (A B C) 



X = (A B C) 

Y = D 



Y = D 

: BT 



:EDIT 




IN FIE... 

FOO 



(FOO V U) 

SETQ 



EDIT 

COND 

find which function 

*(SW 2 3) 

PROG 

FOO is called 

from 

*0K 

F IE 



FIE 6 


(aborted with 

♦E) 

:0K 

:EDITF(FIE) 



FOO 

EDIT 




*F FOO P 




(FOO V U) 

edit it 



*(SW 2 3) 




*OK 




F IE 




:(SETQ Y X) 

reset X and Y 



(A B C) 




:(SETQQ X D) 




D 




: ?= 




X = D 




y = (ABC) 

check them 



:OK 




FOO 





Brkcoms 

The fourth argument to breakl is brkcoms . a list of break commands that breakl 
interprets and executes as though they were teletype input. One can think of 
brkcoms as another input file which always has priority over the teletype. 
Whenever br kcoms =NIL, breakl reads its next command from the teletype. 
Whenever brkcoms is not NIL, breakl takes as its next command car[brkcoms] and 
sets brkcoms to cdr[brkcoms]. For example, suppose the user wished to see the 
value of the variable x ajter a function was evaluated. He would set up a 
break with brkcoms=(EVAL (PRINT X) OK), which would have the desired effect. 
The function trace uses brkcoms : it sets up a break with two commands; the 
first one prints the arguments of the function, or whatever the user specifies. 


x and y have not been changed, but brkexp has. See previous footnote. 
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and the second is the command GO, which causes the function to be evaluated and 
its value printed. 

If brkcoms is not NIL, the value of a break command is not printed. If you 
desire to see a value, you must print it yourself, as in the above example with 
the command (PRINT X). 

Note» whenever an error occurs, brkcoms is set to AHL, and a full interactive 
break occurs. 


Brkfile 


The break package has a facility for redirecting ouput to a file. The variable 
brkfile should be set to the name of the file, and the file must be opened. 
All output resulting from brkcoms will be output to brkfile . e.g. output due to 
TRACE. Output due to user typein is not affected, and will always go to the 
terminal, brkfile is initially T. 


Breakmacros 


Whenever an atomic command is given breakl that it does not recognize, either 
via brkcoms or the teletype, it searches the list breakmacros for the command. 
The form of breakmacros is ( ... (macro command^ command^ ... comraand n ) ...). 
If the command is defined as a macro, breaki simply appends its definition, 
which is a sequence of commands, to the front of brkcoms . and goes on. If the 
command is not contained in breakmacros , it is treated as a function or 
variable as before. 

Example: the command ARGS could be defined by including on breakmacros : 
(ARGS (PRINT (VARIABLES LASTPOS T))). 
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15.3 Break Functions 


breakl[ brkexp; brkwhen ;brkfn;brkcoms;brktype] 

1s an nlambda . brkwhen determines whether a break 
is to occur. If its value is NIL, brkexp is 
evaluated and returned as the value of breakl . 
Otherwise a break occurs and an identifying 
message is printed using brkfn . Commands are then 
taken frora brkcoms or the teletype and 
interpreted. The commands, GO, !G0, OK, !OK, 
RETURN and t, are the only ways to leave breakl . 
The command EVAL causes brkexp to be evaluated, 
and saves the value on the variable ivalue . Other 
commands can be defined for breakl via 
breakmacros . brktype is NIL for user breaks, 
INTERRUPT for control-H breaks, and ERRORX for 
error breaks. 

For error breaks, the input buffer is cleared and saved. (For control-H 
breaks, the input buffer was cleared at the time the control-H was typed, see 
Section 16.) In both cases, if the break returns a value, i.e., is not aborted 
via t or control-D, the input buffer will be restored (see Section 14). 

breakO[fn;when;coms] sets up a break on the function fn by redefining 

fn as a call to breakl with brkexp an equivalent 
Definition of fn , and when , fn, and coms , as 
brkwhen , brkfn , brkcoms . Puts property BROKEN on 
property list of fn with value a gensym defined 
with the original definition. Puts property 
BRKINFO on property list of fn with value (BREAKO 
when coms) (For use in conjunction with rebreak ). 
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Adds fn to the front of the list brokenfns . Value 
is fn. 

If fn is non~atomic and of the form (fnl IN fn2), 
breakO first calls a function which changes the 
name of fnl wherever it appears Inside of fn2 to 
that of a new function, fnl-IN-fn2, which it 
initially defines as fnl. Then breakO proceeds to 
break on fnl-IN-fn2 exactly as described above. 
This procedure is useful for breaking on a 
function that is called from many places, but 
where one is only interested in the call from a 
specific function, e.g. (RPLACA IN FOO), 
(PRINT IN FIE), etc. It is similar to breakin 
described below, but can be performed even when 
FN2 is compiled or blockcompiled, whereas breakin 
only works on interpreted functions. 

If fnl is not found in fn2 , breakO returns the 
value (fnl NOT FOUND IN fn2). 

If fnl is found in fn2 , in addition to breaking 
fnl-IN-fn2 and adding fnl-IN-fn2 to the list 
brokenfns, breakO adds fnl 'to the property value 
for the property NAMESCHANGED on the property list 
of fn2 and adds the property ALIAS with the value 
(fn2 . fnl) to the property list of fnl-IN-fn2 . 
This will enable unbreak to recognize what changes 
have been made and restore the function fn2 to its 
original state. 
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If fn is nonatomic and not of the above form 


breakO is called for each member of fn using the 
same values for when , coms , and file specified in 
this call to breakO . This distributivity permits 
the user to specify complicated break conditions 
on several functions without excessive retyping, 
e.g., 

breakO[(FOOl ((PRINT PRIN1) IN (FOOZ F003))); 

(NEQ X T);(EVAL ?= (Y Z) OK)] 

will break on FOOl, PRINT-IN-F002, PRINT-IN-F003, 
PRIN1-IN-F002 and PRIN1-IN-F003. 

If fn is non-atomic, the value of breakO is a list 
of the individual values. 

break[x] is a nospread nlambda . For each atomic argument, 

it performs breakO[atom;T]. For each list, it 
performs apply[BREAKO;list]. For exarople, 
break[F001 (F002 (GREATERP N 5) (EVAL))] is 

equivalent to break0[FOOl,T] and 

breakO[F002; (GREATERP N 5); (EVAL)] 

trace[x] is a nospread nlambda . For each atomic argument, 

it performs breakO[atom;T;(TRACE ?= NIL GO)] 7 For 
each list argument, car is the function to be 
traced, and cdr the forms the user wishes to see, 
i.e. trace performs: 

breakO[car[list];T;list[TRACE;?=; cdr[list],GO]] 


The flag TRACE is checked for in breakl and causes the message 'function 
to be printed instead of (function BROKEN). 
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For example, TRACE(F001 (F002 Y)) will cause both 
F001 and FQO2 to be traced. All the arguments of 
F001 will be printed; only the value of Y will be 
printed for F002. ln the special case that the 
user wants to see only the value, he can perform 
TRACE((fn)). This sets up a break with commands 
(TRACE ?- (NIL) 60). 

Note: the user can always call breakO himself to obtain combination of options 
of break1 not directly available with break and trace . These two functions 
merely provide convenient ways of calling breakO , and will serve for most uses. 

Breakin 

Breakin enables the user to insert a break, i.e. a call to breakl , at a 
specified location in an interpreted function. For example, if foo calls fie, 
inserting a break in foo before the call to fie is similar to breaking fie. 
However, breakin can be used to insert breaks before or after prog labels, 
particular SETQ expressions, or even the evaluation of a variable. This is 
because breakin operates by calling the editor and actually inserting a call to 
breakl at a specified point inside of the function. 

The user specifies where the break is to be inserted by a sequence of editor 
commands. These commands are preceded by BEFORE, AFTER, or AROUNO, which 
breakin uses to determlne what to do once the editor has found the specified 
point, i.e. put the call to breakl BEFORE that point, AFTER that point, or 
AROUNO that point. For example, (BEFORE COND) will insert a break before the 
first occurrence of cond , (AFTER COND 2 1) will insert a break after the 
predicate in the first cond clause, (AFTER BF (SETQ X &)) after the last place 
X is set. Note that (BEFORE TTY:) or (AFTER TTY:) perrait the user to type in 
commands to the editor, locate the correct point, and verify it for himself 
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breakin[fn 


unbreak[x] 


where;when;coms] breakin is an nlambda . when and coms are similar 
to when and coms for breakO . except that if when 
is NIL, T is used. where specifies where in the 
Definition of fn the call to breakl is to be 
inserted. (See earlier discussion). 

If fn is a compiled function, breakin returns 
(fn UNBREAKABLE) as its value. 

If fn is interpreted, breakin types SEARCHING... 
while it calls the editor. If the location 
specified by where is not found, breakin types 
(NOT FOUND) and exits. If it is found, breakin 
adds the property BROKEN-IN with value T, and the 
Property BRKINFO with value (where when coms) to 
the property list of fn, and adds fn to the front 
of the list brokenfns . 

Multiple break points, can be inserted with a 
single call to breakin by using a list of the form 
((BEFORE ...) .. (AROUND ...)) for where . It is 
also possible to call break or trace on a function 
which has been modified by breakin . and conversely 
to breakin a function which has been redefined by 
a call to break or trace . 

unbreak is a nospread nlambda . It takes an 
indefinite number of functions modified by break . 
trace . or breakin and restores them to their 
original state by calling unbreakO . Value is list 
of values of unbreakO. 
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unbreak[ ] will unbreak all functions on brokenfns . 


in reverse order. It first sets brkinfolst to 
NIL., 


unbreak[T] unbreaks just the first function on 
brokenfns . i.e., the most recently broken 
function. 

unbreakO[fn] restores fn to its original state. If fn was not 

broken, value is (NOT BROKEN) and no changes are 
mado. If fn was modified by breakin , unbreakin is 
called to edit it back to its original state. If 
fn was created fron» (fnl IN fn2), i.e. if it has a 
property ALIAS, the function in which fn appears 
is restored to its original state. All dummy 
functions that were created by the break are 
elirainated. Adds property value of BRKINFO to 
(front of) brkinfolst . 

Note: unbreakO[(fnl IN fnZ)] is allowed: unbreakO 
will operate on fnl-IN-fn2 instead. 

unbreakin[fn] performs the appropriate editing operations to 

eliininate all changes made by breakin . fn may be 
either the name or definition of a function. 
Value is fn. Unbreakjn is automatically called by 
unbreak if fn has property BROKEN-IN with value T 
on :Lts property list. 

rebreak[x] is an nlambda , nospread function for rebreaking 

functions that were previously broken without 
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having to respecify the break Information. For 
each function on x* rebreak searches brkinfolst 
for break(s) and performs the corresponding 
Operation. Value is a list of values 
corresponding to calls to breakO or breakin . If 
no Information is found for a particular function, 
value is (fn - NO BREAK INFORMATION SAVED). 

rebreak[] rebreaks everything on brkinfolst , i.e., 
rebreak[] is the inverse of unbreak[]. 

rebreak[T] rebreaks just the first break on 
brkinfolst . i.e., the function most recently 
unbroken. 

changename[fn;from;to] changes all occurrences of from to to in fn. fn 

may be compiled or blockcompiled. Value is fn if 
from was found, otherwise NIL. Does not perforra 
any modifications of property lists. Note that 
from and to do not have to be functions, e.g. they 
can be names of variables, or any other literals. 

virginfn[fn;flg] is the function that knows how to restore 

functions to their original state regardless of 
any amount of breaks, breakins, advising, 
compiling and saving exprs, etc. It is used by 
prettyprint . define . and the Compiler. If 
flg sNIL, as for prettyprint , it does not raodify 
the definition of fn in the process of producing a 
"clean" Version of the definition, i.e. it works 
on a copy. If flgsT as for the Compiler and 
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deliM. it physically restores the function to its 
original state, and prints the changes it is 
making, e.g. F00 UNBROKEN, FOO UNADVISEO, FOO 
NAHES RESTOREO, etc. Value is the Virgin function 
deflnition. 


baktrace[posl ;pos2;skipfn;varsflg;»form*flg;allflg] prints backtrace fron» 

to p_os2 . If skipfn is not NIL, and 
skipfn[ stknamet pos ] ] is T, pos is skipped 

(including all variables). 
varsflg =T for backtrace a la BTV 
varsflq =T. «form*flq gT - BTV* 
varsflg =T. allflg =T - BTV! 
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SECTION 16 


ERROR HANDLING 


16,1 Unbound Atoms and Undefined Functions 

Whenever the Interpreter encounters an atomic form with no binding on the push- 
dovm list, and whose value contalns the atom NOBIND, 1 the Interpreter calls 
the function faulteval . Similarly, faulteval is called when a list is 
encountered, car of which is not the name of a function or a function object. 2 
The value returned by faulteval is used by the interpreter exactly as though it 
were the value of the form. 

faulteval is defined to print either U.B.A., for unbound atom, or U.D.F., for 
undefined function, and then to call breakl giving it the offending form as 
brkexp .** Once Inside the break, the user can set the atom, define the function, 
return a specified value for the form using the RETURN command, etc., or abort 


All atoms are initialized (when they are created by the read program) with 
their value cells ( car of the atom) NOBIND, their function cells NIL, and 
their property lists (cdr of the atom) NIL. 


See Appendix 2 for complete description of INTERLISP interpreter. 


If DWIM is enabled (and a break is going to occur), faulteval also prints 
the offending form (in the case of a U.B.A., the parent form) and the name 
of the function which contains the form. For example, if FOO contains 
(CONS X FIE) and FIE is unbound, faulteval prints: 

U.B.A. FIE [ln FOO] ln (CONS X FIE). Note that if DWIM is not enabled, the 
user can obtain this Information after he is inside the break via the IN? 
command. 
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the break using the t comraand, If the break ts exited with a value, the 
computation will proceed exactly as though no error had occurred.^ 

The decision over whether or not to induce a break depends on the depth of 
computation, and the amount of time invested in the computation. The actual 
algorithm is described in detail below in the section on breakcheck . Suffice 
it to say that the Parameters affecting this decision have been adjusted 
empirically so that trivial type-in errors do not cause breaks, but deep errors 
do. 


16,2 Teletype Initiated Breaks 

Control-H 


Section 15 on the break package described how the user could cause a break when 
a specified function was enteretil. The user can also indicate his desire to go 
into a break at any time while a program is running by typing control-H. 6 At 
the next point a function is albout to be entered, the function interrupt is 
called instead. interrupt types INTERRUPTED BEFORE followed by the function 


A similar procedure is followed whenever apply or apply* are called with an 
undefined function, i.e. one whose fntyp is NIL. In this case, faultapply 
is called giving it the function as its first argument and the list of 
arguments to the function as its second argument. The value returned by 
faultap ply is used as the value of apply or apply* . faultapply is defined 
to print U.O.F. and then call breakl giving it 
(APPLY (QUOTE fn) QUOTE args)) as brkexp . Once inside the break, the user 
can define the function, return a specified value, etc. If the break is 
exited with a value, the computation will proceed exactly as though no 
error had occurred. faultapply is also called for undefined function calls 
from compiled code. 


As soon as control-H is typed, INTERLISP clears and saves the input buffer, 
and then rings the bell, indicating that it is now safe to type ahead to 
the upcoming break. If the break returns a value, i.e., is not aborted via 
t or control-D, the contents of the input buffer before the control-H was 
typed will be restored. 
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name, constructs an appropriate break expression, and then calls breakl . The 
user can then examine the state of the computation, and continue by typing OK, 
GO or EVAL, and/or retfrom back to soroe prevlous point, exactly as with a user 
break. Control-H breaks are thus always ’safe'. Note that control-H breaks 
are not affected by the depth or time of the computation. However, they onlu 
occur when a function is called, since it is only at this time that the System 
is in a "clean" enough state to allow the user to interact. Thus, if a 
compiled program is looping without calling any functions, or is in a I/O wait, 
contröl-H will not affect it. Control-B, however, will. 


Control-B 


Control-B is a stronger Interruption than control-H. It effectively generates 
an immediate error. This error is treated like any other error except that it 
always causes a break, regardless of the depth or time of the computation.® 
Thus if the function FOO is looping internally, typing control-B will cause the 
computation to be stopped, the stack unwound to the point at which FOO was 
called, and then cause a break. Note that the internal variables of FOO are 
not available in this break, and similarly, FOO may have already produced some 
changes in the environment before the control-B was typed. Therefore whenever 
possible, it is better to use control-H instead of control-B. 


Control-E 

If the user wishes to abort a computation, without causing a break, he should 
type control-E. Control-E does not go through the normal error machinery of 
scanning the stack, calling breakcheck , printing a message, etc. as described 
below, but simply types a carriage-return and unwinds. 


However, setting helpflag to NIL will suppress the break. See discussion 
of breakcheck below. 
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16.3 Other Types of Errors 


In addition to U.B.A. and U.D.F. errors, there are currently 28 other error 
types in INTERLISP, e.g. P-5TACK OVERFLOW, NON-NUMERIC ARG, FILE NOT OPEN, 
etc. A complete list is given later in this section. When an error occurs, 
the decision about whether or not to break is handled by breakcheck and is the 
same as with U.B.A. and U.O.F. errors. If a break is to occur, the exact 
action that follows depends on the type of error. For example, if a break is 
to occur following evaluation of (RPLACA NIL (ADD1 5)) (which causes an 
ATTEMPT TO RPLAC NIL error), the roessage printed will be (RPLACA BROKEN), 
brkexp will be (RPLACA U V W), U will be bound to NIL, V to 6, and W to NIL, 
and the stack will look like the user had broken on rplaca himself. Following 
a NON-NUMERIC ARG error, the System will type IN followed by the naroe of the 
most recently entered function, and then (BROKEN). The system will then 
effectively be in a break inside of this function. brkexp will be a call to 
ERROR so that if the user types OK or EVAL or GO, a ? will be printed and the 
break raaintained. However, if the break is exited with a value via the RETURN 
command, the computation will proceed exactly as though no error had occurred. 


16.4 Breakcheck - When to Break 


The decision as to whether or not to induce a break when an error occurs is 
handled by the function breakcheck .& The user can suppress all error breaks by 
setting the variable helpflag to NIL (initially set to T). If helpflag =T. the 
decision is affected by two factors: the length of time spent in the 


Presuroably the value will be a nuraber, or the error will occur again. 


3 

Break check is not actually available to the user for advising or breaking 
since the error package is block-coropiled. 
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computation, and the depth of the computation at the time of tho error. 0 If the 
tim© is greater than helptime or the depth is greater than helpdepth , 
breakcheck returns T, meaning a break will occur. 

Since a function is not actually entered until its arguments are evaluated, 1 ^ 
the depth of a computation is defined to be the sum of the number of function 
calls plus the number of internal calls to eval . Thus if the user types in the 
expression [MAPC FOO (FUNCTION (LAMBDA (X) (COND ((NOT (MEMB X FIE)) (PRINT X] 
for evaluation, and FIE is not bound, at the point of the U.B.A. FIE error, two 
functions, mapc and cond , have been entered, and there are three internal calls 
to eval corresponding to the evaluation of the forms 
(COND ((NOT (MEMB X FIE)) (PRINT X))), (NOT (MEMB X FIE)), and (MEMB X FIE). 11 
The depth is thus 5. 

breakcheck begins by searching back up the Parameter stack looking for an 
errorset . At the same time, it counts the number of internal calls to eval , 
as indicated by pseudo-variable bindings called eval-blips . See Section 12. 
As soon as (if) the number of eval-blips exceeds helpdepth , breakcheck can stop 
searching for errorset and return T, since the Position of the errorset is only 
needed when a break is not going to occur. Otherwise, breakcheck continues 


Except that control-B errors always break. 


1 ^ Unless of course the function does not have its arguments evaluated, i.e. 
is an FEXPR, FEXPR*, CFEXPR, CFEXPR*, FSUBR or FSUBR*. 


11 For complete discussion of the stack and the Interpreter, see Section 12. 


errorsets are simply markers on the stack indicating how far back unwinding 
is to take place when an error occurs, i.e. they Segment the stack into 
sections such as that if an error occurs in any section, control returns to 
the point at which the last errorset was entered, from which NIL is 
returned as the value of the errorset . See page 16.14. 
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searching until either an errorset is found* 3 or the top of the stack is 
reached. Breakcheck then completes the depth check by counting the number of 
function calls between the error and the last errorset , or the top of the 
stack. If the number of calls plus the number of eval-blips (already counted) 
is greater than or equal to helpdepth , initially set to 9, 14 breakcheck returns 
T. Otherwise, it records the Position of the last errorset , and the value of 
errorset 's second argument, which is used in deciding whether to print the 
error message, and returns NIL. 

breakcheck next measures the length of time spent in the computation by 
subtracting the value of the variable helpclock from the value of (CLOCK 2). i6 
If the difference is greater than helptime milliseconds, initially set to 1000, 
then a break will occur, i.e., breakcheck returns T, otherwise NIL. The 
variable helpclock is rebound to the current value of (CLOCK 2) for each 
computation typed in to lispx or to a break. 

The time criterion for breaking can be suppressed by setting helptime to NIL 
(or a very big number), or by binding helpclock to NIL. Note that setting 
helpclock to NIL will not have any effect because helpclock is rebound by lispx 
and by break . 

If breakcheck is NIL, i.e., a break is not going to occur, then if an errorset 
was found, NIL is returned (via retfrom ) as the value of the errorset . after 
first printing the error message if the errorset 's second argument was TRUEw 


If the second argument to the errorset is INTERNAL, the errorset is ignored 
and searching continues. See discussion of errorset . page 16.14. 

14 

Arrived at empirically, takes into account the overtiead due to lispx or 
break. 


lö 

Whose value is number of milliseconds of compute time. See Section 21. 
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If there was no errorset . the oessage is printed, and control returns to 
evalgt . This procedura is followed for all types of errors. 

Note that for all error breaks for which a break occurs, breakl will clear and 
save the input buffer. If the break returns a value, i.e., is not aborted via 
t or control-D, the input buffer will be restored as described in Section 15. 


16.5 Error Types 

There are currently twenty-eight error types in the INTERLISP System. They are 
listed below by error number. The error is set internally by the code that 
detects the error before it calls the error handling functions. It is also the 
value returned by errorn if called subseqüent to that type of error, and is 
used by errormess for printing the error message. 

Most error types will print the offending expression following the message, 
e.g., NON-NUMERIC ARG NIL is very common. Error type 18 (control-B) always 
causes a break (unless helpflag is NIL). All other errors cause breaks if 
breakcheck returns T. 

0 NONXMEM reference to non -existent mem ory. Usually 

indicates System is very sick. 

^ Currently not used. 

2 P-STACK OVERFLOW occurs when computation is too deep, either with 

respect to number of function calls, or number of 
variable bindings. Usually because of a non- 
terminating recursive computation, i.e. a bug. 
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3 ILLEGAL RETURN 


call to return when not Inside of an interpreted 
prog . 


4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 


ILLEGAL ARG - PUTD 

ARG NOT ATOM - SET 

ATTEMPT TO SET NIL 

ATTEMPT TO RPLAC NIL 

UNDEFINEO OR ILLEGAL GO 

FILE WON'T OPEN 

NON-NUMERIC ARG 

ATOM TOO LONG 

ATOM HASH TABLE FULL 

FILE NOT OPEN 

ARG NOT ATOM 

TOO MANY FILES OPEN 


second argument to putd (the definition) is not 
NIL, a list, or a pointer to compiled code. 

first argument to set, setq . or setqq (natne of the 
variable) is not a literal atom. 

via set or setq 

attempt either to rplaca or to rplacd NIL with 
something other than NIL. 

go when not Inside of a prog , or go to nonexistent 
label. 

Frorn infile or outfile . Section 14. 

a numeric function e.g. iplus . itimes , igreaterp . 
expected a number. 

> 100 characters. 

no room for any more (new) atoms. 

fron» an I/O function, e.g. read , print . closef . 


> 1€> including teletype. 
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16 END OF FILE 


from an input function, e.g. read , readc . ratom . 
Note: the file will then be closed. 


17 ERROR 


call to error. 


18 BREAK 


control-B was typed. 


19 ILLEGAL STACK ARG a stack function expected a stack Position and was 

given something eise. This might occur if the 
arguments to a stack function are reversed. Also 
occurs if user specified a stack Position with a 
function name, and that function was not found on 
the stack. See Section 12. 


20 FAULT IN EVAL 


artifact of bootstrap. Never occurs after 
faulteval has been defined as described earlier. 


21 ARRAYS FULL 


System will first initiate a GC: l, and if no 
array space is reclaimed, will then generate this 
error. 


22 DIRECTORY FULL 


no new files can be created until user deletes 
some old ones and expunges. 


23 FILE NOT FOUND 


file name does not correspond to a file in the 
corresponding directory. Can also occur if file 
name is ambiguous. 


24 FILE INCOMPATIBLE - SYSIN from sysin , Section 14. 

25 UNUSUAL CDR ARG LIST a form ends in a non-list other than NIL, e.g 

(CONS T . 3). 
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26 HASH TABLE FÜLL 


see hash link functions, Section 7. 


27 ILLEGAL ARG Catch-all error. Currently used by evala , arg , 

funarg , allocate . rplstring . and sfptr . 

28 ARG NOT ARRAY eit or seta given an argument that is not a 

pointer to the beginning of an array. 

29 ILLEGAL OR IMPOSSIBLE BLOCK 

Fron» getblk or relblk . See Section 21. 

30 currently not used. 

31 LISTS FULL following a GC: 8, if a sufficient amount of list 

words have not been collected, and there is no un- 
allocated space left in the System, this error is 
generated. 

Nany system functions, e.g. define , arglist , advise , log , expt . etc, also 
generate errors with appropriate messages by calling error (see page 16.12) 
which causes an error of type 16. 


Error handling by error type 


Occasionally the user may want to treat certain error types different than 
others, e.g. always break, never break, or perhaps take some corrective action. 
This can be accomplished via errortypelst . errortypelst is a list of elements 
of the form (n expression), where n is one of the 28 error numbers. After 
breakcheck has been completed, but before any other action is taken, 
errortypelst is searched for an element with the same error number as that 
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causing the error. If one is found, and the evaluation of the corresponding 
expression produces a non-NIL value, the value is substituted for the offender, 
and the function causing the error is reeentered. 

For this application, the following three variables may be useful: 

car is the error number, cadr the "offender" e.g. 
(10 NIL) corresponds to NON-NUMERIC ARG NIL error. 

Position of the function in which the error 
occurred, e.g. stkname[errorpos] might be IPLUS, 
RPLACA, INFILE, etc. 

value of breakcheck , i.e. T toeans a break will 
occur, NIL means one will not. 

[10 (AND (NULL (CADR ERRORMESS)) 

(SELECTQ (STKNAME ERRORPOS) 

((IPLUS ADD1 SUB1) 0) 

(ITIMES 1) 

(PROGN (SETQ BREAKCHK T) NIL] 

on Srrprtypelst would specify that whenever a NON-NUMERIC ARG - NIL error 
occurred, and the function in question was IPLUS, ADD1, or SUB1, 0 should be 
used for the NIL. If the function was ITIMES, 1 should be used. Otherwise, 
always break. Note that the latter case is achieved not by the value returned, 
but by the effect of the evaluation, i.e. setting BREAKCHK to T. Similarly, 
(16 (SETQ BREAKCHK NIL)) would prevent END OF FILE errors fron» ever breaking. 


errormess 


errorpos 


breakchk 


For example, putting 
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16.6 Error Functions 


errorxterxm] 1s the entry to the error routines. If erxm =NIL, 

errornt ] is used to determine the error-message. 
Otherwise, seterrorn[erxm] is performed, 'setting' 
the error type and argument. Thus following 
either errorxtdO T)] or (PLUS T), errornt] is 
(10 T). errorx calls breakcheck , and either 
induces a break or prints the message and unwinds 
to the last errorset . Note that errorx can be 
called by any program to intentionally induce an 
error of any type. However, for most 
applications, the function error will be more 
useful. 

error[messl;mess2;nobreak] The message that is (will be) printed is messt 

(using prinl ). followed by a space if messt is an 

atom, otherwise a carriage return. Then mess2 is 

printed, using prinl if messZ is a string, 

otherwise print . e.g., errorf"NON-NUMERIC ARG" ;T] 

will print 

NON-NUMERIC ARG 
T 

and error[FOO;"NOT A FUNCTION"] will print 
F00 NOT A FUNCTION. (If both messt and mess2 are 
NIL, the message is simply ERROR.) 

If nobreak sT. error prints its message and then 
calls error! . Otherwise it calls 

errorxf(17 (messt . mess2))], i.e. generates an 
error of type 17, in which case the decision as to 
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help[messt;mess2] 


error ![] 16 


reset[ ] 


errornt ] 


errormesstu] 


whether or not to break, and whether or not to 
print a message, is handled as per any other 
error. 

prints messt and mess2 a la error , and then calls 
breaU. If both messt and mess2 are NIL, HELPJ is 
used for the message. help is a convenient way to 
program a default condition, or to terminate some 
protion of a program which theoretically the 
computation is never supposed to reach. 

programmable control-E, i.e., immediately returns 
from last errorset or resets. 

Programmable control-D, i.e. immediately returns 
to the top level. 

returns Information about the last error in the 
form (n x) where n is the error type number and x 
is the expression which was (would have been) 
printed out after the error message. Thus 
following (PLUS T), errornt] is (10 T). 

prints message corresponding to an errorn that 
yielded u. For example, errormesst(10 T)] would 
print 

NON-NUMERIC ARG 
T 


16 


Pronounced "error-bang". 




errorset[u;v]* 7 performs eval[u]. Note that errorset is a lembda- 

type of function, and that its arguments are 
evaluated before it is entered, i.e. errorset[x] 
means eval is called with the ualue of x. In most 
cases, ersetq and nlsetq (described below) are 
more useful. If no error occurs in the evaluation 
of u, the value of errorset is a list containing 
one element, the value of eval[u]. If an error 
did occur, the value of errorset is NIL. 

The argument v Controls the printing of error 
messages if an error occurs. If v*T, the error 
message is printed; if v*NIL it is not. 

If v=INTERNAL, the errorset is ignored for the 
purpose of deciding whether or not to break or 
print a message. However, the errorset is in 
effect for the purpose of flow of control, i.e. if 
an error occurs, this errorset returns NIL. 

ersetq[ersetx] nlainbda . performs errorset[ersetx;t], i.e. 

(ERSETQ (F00)) is equivalent to 

(ERRORSET (QUOTE (F00)) T). 

nlsetq[nlsetx3 nlainbda , performs error$et[nlsetx;NIL]. 


errorset is a subr, so the names "u" and "v" don't actually appear on the 
stack nor will they affect the evaluation. 
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SECTION 17 

AUTOMATIC ERROR CORRECTION - THE DWIM FACILITY 1 


17.1 Introduction 

A surprisingly large percentage of the errors made by INTERLISP users are of 
the type that could be corrected by another LISP progranuner wlthout any 
Information qbout the purpose of the program or expression in question, e.g. 
misspellings, certain kinds of parentheses errors, etc. To correct these types 
of errors we have implemented in INTERLISP a DWIM facility, short for DO-What- 
I-Mean. DWIM is called automatically whenever an error^ occurs in the 
evaluation of an INTERLISP expression. DWIM then proceeds to try to correct 
the mistake using the current context of computation plus Information about 
what the user had previously been doing, (and what mistakes he had been making) 
as guides to the rernedy of the error. If DWIM is able to make the correction, 
the computation continues as though no error had oceurred. Otherwise, the 
procedure is the same as though DWIM had not intervened: a break occurs, or an 
unwind to the last errorset, as described in Section 16. The following 
protocol illustrates the Operation of DWIM. 


DWIM was designed and implemented by W. Teitelman.' It is discussed in 
[Tei2]. 


Currently, DWIM only operates on unbound atoms and undefined function 
errors. 
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Example 


The user defines a function fact of one argument, n. The value of fact[n] is 
to be n factorial. 

*-DEFINEQ((FACT (LAMBDA (N) (CONO 
((ZEROP N9 1) ((T (ITIMES N (FACT 8SUB1 N] 

(FACT) 

Note that the definition of fact contains several mistakes: Itimes and fact 
have been misspelled; the 9 in N9 was intended to be a right parenthesis, but 
the shift key was not depressed; similarly, the 8 in 8SUB1 was intended to be a 
left parenthesis; and finally, there is an extra left parenthesis in front of 
the T that begins the final clause in the conditional. 

*-PRETTYPRINT( (FACCT] 

=PRETTYPRINT 
=FACT 

(FACT 

[LAMBDA (N) 

(COND 

((ZEROP N9 1) 

((T (ITIMS N (FACCT 8SUB1 N]) 

(FACT) 

♦- 

After defining fact . the user wishes to look at its definition using 
PRETTYPRINT, which he unfortunately misspells.[1] Since there is no function 
PRETTYPRINT in the systera, a U.D.F. error occurs, and DWIM is called. DWIM 
invokes its spelling corrector, which searches a list of functions frequently 
used (by this user) for the best possible match. Finding one that is extremely 
close, DWIM proceeds on the assumption that PRETTYPRINT meant PRETTYPRINT, 
notifies the user of this, [2] and calls grettyprint . 

At this point, PRETTYPRINT would normally print (FACCT NOT PRINTABLE) and exit, 
since facct has no definition. Note that this is not an INTERLISP error 


[ 1 ] 

[ 2 ] 

[3] 
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condition, so that DWIM would not be called as described above. However, it is 
obviously not what the user meant. 


This sort of mistake is corrected by having prettyprint itself explicitly 
invoke the spelling corrector portion of DWIM whenever given a function with no 
expr definition. Thus with the aid of DWIM, prettyprint is able to determine 
that the user wants to see the definition of the function fact ,[31 and proceeds 
accordingly. 


-FACT(3] [4] 

N9 [IN FACT] -> N ) ? YES 

[IN FACT] (COND — (<T —))) -> 

(COND — (T —)) 

ITIMS [IN FACT] -> ITIMES [5] 

FACCT [IN FACT] -> FACT 

8SUB1 [IN FACT] -> ( SUB1 ? YES 

6 

♦•PP FACT [6] 


(FACT 

[LAMBDA (N) 

(COND 

((ZEROP N) 

1 ) 

(T (ITMES N (FACT (SUB1 N]) 

FACT 


The user now calls his function fact .[4] Düring its execution, five errors 
occur, and DWIM is called five times.[5] At each point, the error is corrected, 
a message printed describing the action taken, and the computation allowed to 
continue as if no error had occurred, Following the last correction, 6 is 
printed, the value of fact(3). Finally, the user prettyprints the new, now 
correct, definition of fact.[6] 

In this particular example, the user was shown operating in TRUSTING mode, 
which gives DWIM carte blanche for most corrections. The user can also operate 
in CAUTIOUS mode, in which case DWIM will inform him of intended corrections 
before they are made, and allow the user to approve or dlsapprove of them. For 
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most corrections, if the user does not respond in a specified interval of time. 


DWIM automatically 

proceeds 

with 

the 

correction, so 

that 

the user 

need 

intervene 

only when 

he does not approve. 

Sample output 

is given below. 

Note 

that the 

user responded to 

the 

first. 

second, and 

fifth 

questions; 

DWIH 

responded 

for him on 

the third 

and 

fourth 






♦*FACT(3) 


N9 [IN FACT] -> N 

) ? YES 

[1] 

U.D.F. T [IN FACT] 

FIX? YES 

[2] 

[IN FACT] (COND — 

((T --))) -> 


(COND -- 

(T -)) 


ITIMS [IN FACT] -> 

ITIMES ? ...YES 

[3] 

FACCT [IN FACT] -> 

FACT ? ...YES 

[4] 

8SUB1 [IN FACT] -> 

( SUB1 ? NO 

[5] 

U.B.A. 



(8SUB1 BROKEN) 




We have put a great deal of effort into making DWIM 'smart', and experience 
with perhaps fifty different users indicates we have been very successful; DWIH 
seldom fails to correct an error the user feels it should have, and almost 
never mistakenly corrects an error. However, it is important to note that even 
when DWIM is wrong, no harm is done: 3 since an error had occurred, the user 
would have had to intervene anyway if DWIH took no action. Thus, if DWIH 
mistakenly corrects an error, the user simply Interrupts or aborts the 
computation, UNDOes the DWIM change using UNDO described in Section 22, and 
makes the correction he would have had to make without DWIM. It is this benign 
quality of DWIH that makes it a valuable part of INTERLISP. 


Except perhaps if DWIH's correction mistakenly caused a destructive 
computation to be initiated, and Information was lost before the user could 
Interrupt. We have not yet had such an incident occur. 
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17.2 Interaction with PWIH 


DWIM is enabled by performing either DWIM[C], for CAUTIOUS mode, or DWIM[T] for 
TRUSTING mode. 4 In addition to setting dwimflg to T and redefining faulteval 
and faultapply as described on page 17.14, DWIMfC] sets approveflg to T, while 
DWIM[T] sets approveflg to NIL. The setting of approveflg determines whether 
or not the user wishes to be asked for approval before a correction that will 
modify the definition of one of his functions. In CAUTIOUS mode, i.e. 
approveflg =T, DWIM will ask for approval; in TRUSTING mode, DWIM will not. For 
corrections to expressions typed in by the user for immediate execution, 6 DWIM 
always acts as though approveflg were NIL, i.e. no approval necessary.® In 
either case, DWIM always informs the user of its action as described below. 


Spelling Correction Protocol 

The protocol used by DWIM for spelling corrections is as follows: If the 
correction occurs in type-in, print * followed by the correct spelling, 
followed by a carriage-return, and then continue, e.g. 


INTERLISP arrives with DWIM enabled in CAUTIOUS mode. DWIM can be disabled 
by executing DWIM[] or by setting dwimflg to NIL. See page 17.23. 

6 Typed into lispx . lispx is used by evalqt and break , as well as for 
Processing the editor's E command. Functions that call the spelling 
corrector directly, such as edltdefault (Section 9), specify whether or not 
the correction is to be handled as type-in. For example, in the case of 
editdcfault , commands typed directly to the editor are treated as type-in, 
so that corrections to them will never require approval. Commands given as 
an argument to the editor, or resulting from macro expansions, or fron IF, 
LP, ORR commands etc. are not treated as type-in, and thus approval will be 
requested if approveflg eT. 


For certain types of corrections, e.g. run-on spelling corrections, 8-9 
errors, etc., dwim always asks for approval, regardless of the setting of 
approveflg . 
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user types: 
DWIM types: 


(SETQ FOO (NCOCN FIE FUM)) 
NCONC 


If the correction does not occur in type-in, print the incorrect spelling, 
followed by [IN function-name;|, ->, and then the correct spelling, e.g. 
ITIMS [IN FACT] -> ITIMES as shown on page 17.3. 7 Then, if approveflg =NIL. 
print a carriage return, make the correction and continue. Otherwise, print a 
few spaces and a ? and then wait for approval.® The user then has six options. 
He can: 


Type Y; DWIM types ES, and proceeds with the correction. 

Type N; DWIM types 0, and does not make the correction. 

Type t; DWIM does not make the correction, and furthermore guarantees 
that the error will not cause a break. See footnote on page 17.15, 

Type control-E; for error correction, this has the same effect as 
typing N. 

Do nothing; in which case DWIM will wait a specified interval, P and if 
the user has not respoinded, DWIM will type ... followed by the default 
answer. 

Type space or carriage-return; in which case DWIM will wait 
indefinitely. This Option is intended for those cases where the user 
wants to think about his answer, and wants to insure that DWIM does 
not get 'impatient' and answer for him. 


The appearance of -> is to call attention to the fact that the user's 
function will be or has been changed. 


Whenever an interaction is about to take place and the user has typed 
ahead, DWIM types several bells to warn the user to stop typing, then 
clears and saves the input buffers, restoring them after the interaction is 
complete. Thus if the user has typed ahead before a DWIM interaction, DWIM 
will not confuse his type ahead with the answer to its question, nor will 
his type ahead be lost. 


Equal to dwimwait seconds. DWIM operates by dismissing for 500 
milliseconds, then checking to see if anything has been typed. If not, it 
dismisses again, etc. until dwimwait seconds have elapsed. Thus, there 

will be a delay of at most 1/2 second before DWIM responds to the user's 
answer. 


The default is always YES unless otherwise stated. 
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The procedure for spelling correction on other than INTERLISP errors is 
analogous. If the correction is being handled as type-in, DWIM 
prints = followed by the correct spelling, and returns it to the function that 
called DWIM, e.g. »FACT as shown on page 17.2. Otherwise, DWIM prints the 
incorrect spelling, followed by the correct spelling. Then if approveflg «NIL. 
DWIM prints a carriage-return and returns the correct spelling. Otherwise, 
DWIM prints a few spaces and a ? and then waits for approval. The user can 
then respond with Y, N, control-E, space, carriage return, or do nothing as 
described. 

Note that since the spelling corrector itself is not errorset protected, typing 
N and typing control-E may have different effects when the spelling corrector 
is called directly.The former siraply instructs the spelling corrector to 
return NIL, and lets the calling function decide what to do next* the latter 
causes an error which unwinds to the last errorset, however far back that may 
be. 


Parentheses Errors Protocol 

As illustrated earlier on page 17.3, DWIM will correct errors consisting of 
typing 8 for left parenthesis and 9 for right parenthesis. In these cases, the 
interaction with the user is similar to that for spelling correction. If the 
error occurs in type-in, DWIM types ■ followed by the correction, e.g. 

user types: «-(SETQ FOO 8C0NS FIE FUM] 

DWIM types: = ( CONS 

lispx types: (A B C D) 

Otherwise, DWIM prints the offending atom, [IN function-name], ->, the proposed 


11 


The DWIM error correction routines are errorset protection. 
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correction, a few spaces and a ?, and then waits for approval, e.g. 
N9 [IN FACT] -> N ) ? as shown on page 17.3. The user then has the sarae six 
optlons as for spelllng correction . 12 If the user types Y, DWIM then operates 
exactly the sarae as when approveflg =NIL. i.e. oakes the correction and prints 
its raessage. 


U.D.F. T Errors Protocol 

DWIM corrects certain types of parentheses errors involving a T clause ln a 
conditional, namely errors of the form: 

1. (COND --) (T --), i.e. the T clause appears outside and immediately 
following the COND; 

Z. (COND -- (-- & (T --))), i.e. the T clause appears Inside a previous 
clause: and 

3. (COND -- ((T --))), i.e. the T clause has an extra pair of parentheses 
around it.* 3 

If the error occurs in type-in, DWIM simply types T FIXED and makes the 
correction. Otherwise if approveflg *NIL. DWIM makes the correction, and prints 
a message consisting of [IN function-name], followed by one of the above 
incorrect forms of COND, followed by ->, then on the next line the 
corresponding correct form of the COND, e.g. 


except the waiting time is 3» dwirawalt seconds. 

For U.D.F. T errors that are not one of these three types, DWIM takes no 
corrective action at all, i.e. the error will occur. 
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[IN FACT] (COND — ((T —))) -> 
(COND -- (T —)) 


as shown on page 17.3. 

approveflg =T. DWIM prints U.D.F. T, followed by [IN function-narae], several 
spaces, and then FIX? and waits for approval. The user then has the same 
options as for spelling corrections and parenthesis errors. If the user types 
Y or defaults, DWIM then proceeds exactly the same as when approveflg =NIL. i.e. 
maXes the correction and prints its message, as shown on page 17.4. 

Having made the correction, DWIM must then decide how to proceed with the 
computation. In case 1, (COND —) (T —), DWIM cannot know whether the last 
clause of the COND before the T clause succeeded or not, i.e. if the T clause 
had been inside of the COND, would it have been entered? Therefore DWIM asks 
the user 'CONTINUE WITH T CLAUSE' (with a default of YES). If the user types 
N, DWIM continues with the form after the COND, i.e. the form that originally 
followed the T clause. 

In case 2, (COND -- (-- & (T --))), DWIM has a different problem. After moving 
the T clause to its proper place, DWIM must return as the value of the COND, 
the value of the expression corresponding to &. Since this value is no longer 
around, DWIM asks the user, 'OK TO REEVALUATE' and then prints the expression 
corresponding to 8t. If the user types Y, or defaults, DWIM continues by 
reevaluating 8t, otherwise DWIM aborts, and a U.D.F. T error will then occur 
(even though the COND has in fact been fixed). 14 


If DWIM can determine for itself that the form can safely be reevaluated, 
it does not consult the user before reevaluating. DWIM can do this if the 
form is atomic, or car of the form is a member of the list okreevalst, and 
each of the arguments can safely be reevaluated, e.g. 
(SETQ X (CONS (IPLUS Y 2) W)) is safe to reevaluate because SETQ, CONS, and 
IPLUS are all on okreevalst. 
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In case 3, (COND — ((T —))), there is no Problem with continuation, so no 
further Interaction is necessary. 


17.3 Spelling Correction 

The spelling corrector is given as arguments a misspelled word (word means 
literal atom), a spelling list (a list of words), and a number: xword , splst , 
and rel respectively. Its task is to find that word on splst which is dosest 
to xword , in the sense described below. This word is called a respelling of 
xword . rel specifies the minimum 'closeness* between xword and a respelling. 
If the spelling corrector cannot find a word on splst closer to xword than rel , 
or if it finds two or more words equally close, its value is NIL, otherwise its 
value is the respelling. 

The exact algorithm for Computing the spelling metric is described later on 
page 17.20, but briefly 'closeness' is inversely proportional to the number of 
disagreements between the two words, and directly proportional to the length of 
the longer word, e.g. PRTTYPRNT is 'closer' to PRETTYPRINT than CS is to CONS 
even though both pairs of words have the same number of disagreements. The 
spelling corrector operates by proceeding down splst . and computing the 
closeness between each word and xword , and keeping a list of those that are 
closest. Certain differences between words are not counted as disagreements, 
for example a single transposition, e.g. CONS to CNOS, or a doubled letter, 
e.g. CONS to CONSS, etc. In the event that the spelling corrector finds a word 
on splst with no disagreements, it will stop searching and return this word as 
the respelling. Otherwise, the spelling corrector continues through the entire 


The spelling corrector can also be given an optional functional argument, 
fn, to be used for selecting out a subset of splst , i.e. only those members 
s plst that satisfy fn will be considered as possible respellings. 
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spelling list. Then if it has found one and only one 'dosest' word, it 
returns this word as the respelling. For example, if xword is VONS, the 
spelling corrector will probably return CONS as the respelling. However, if 
xword is CONZ, the spelling corrector will not be able to return a respelling, 
since CONZ is equally close to both CONS and COND. If the spelling corrector 
finds an acceptable respelling, it Internets with the user as described 
earlier. 

In the special case that the misspelled word contains one or more alt-modes, 
the spelling corrector operates somewhat differently. Instead of trying to 
find the closest word as above, the spelling corrector searches for those words 
on splst that match xword , where an alt-mode can match any number of characters 
(including 0), e.g. FOO$ matches FOOl and FQO, but not NEWFOO. SFOOS matches 
all three. In this case, the entire spelling list is always searchsd, and if 
more than one respelling is found, the spelling corrector prints AMBIGUOUS, and 
returns NIL. For example, CONS would be ambiguous if both CONS and COND were 
on the spelling list. If the spelling corrector finds one and only one 
respelling, it interacts with the user as described earlier. 

For both spelling correction and spelling completion, regardless of whether or 
not the user approves of the spelling corrector's choice, the respelling is 
moved to the front of splst . Since many respellings are of the type with no 
disagreements, this procedure has the effect of considerably reducing the time 
required to correct the spelling of frequently misspelled words. 

Spelling Lists 

Although any list of atoms can be used as a spelling list, e.g. editcomsa , 
brokenfns , fileist , etc., four lists are maintained especially for spelling 
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correction: spellingsl , spellings2 . spellings3 . and userwords. 16 


Spellingsl is a list of functions used for spelling correction when an input is 
typed in apply format, and the function is undefined, e.g. EDTIF(FOO). 
Spellingsl is initialized to contain defineq . break , makefile . editf , tcoropl « 
load, etc. Whenever lispx is giiven an input in apply format, i.e. a function 
and arguments, the name of the function is added to spellingsl , 17 For exaraple, 
typing CALLS(EDITF) will cause CALLS to be added to spellingsl . Thus if the 
user typed CALLS(EDITF) and later typed CALLLS(EOITV), since spellingsl would 
then contain CALLS, DW1M would be successful in correcting CALLLS to CALLS . 18 

5fiel_yüäs2 is a list of functions used for spelling correction for all other 
undefined functions. It is initialized to contain functions such as addt , 
ÜEßMS!* cond, cons . go, list , nconc , print . prog , return , setq , etc. Whenever 
Mspx is given a non-atomic form, the name of the function is added to 
spemngs2. For example, typing (RETFROM (STKPOS (QUOTE F00) 2)) to a break 
would add retfrom to spellings2 . Function names are also added to spellings2 

b y d£line. defineq , load (when loading compiled code), unsavedef . editf . and 
prettyprint . 

j>E ?m n gs3 is a list of words used for spelling correction on all unbound 
atoms * Spj.llings3 is initialized to editmacros . breakmacros , brokenfns . and 
advisedfns. Whenever lispx is given an atom to evaluate, the name of the atom 


All of the remarks on maintaining spelling lists apply only when OWIN is 
enabled, as indicated by dwimflg gf. 


Only if the function has a definition. 


If CALLLS(EDITV) were typed before CALLS had been 'seen' and added to 
1 ^ngs 1, the correction would not succeed. However, the alternative to 
using spelling lists is to search the entire oblist, a procedure that would 
make spelling correction intolerably slow. 
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IQ 

is added to spellings3 . Atoms are also added to spelllngs3 whenover they are 
edited by editv , and whenever they are set via rpaq or rpaqq . For example, 
when a file is loaded, all of the variables set in the file are added to 
spellings3 . Atoms are also added to spellings3 when they are set by a lispx 
input, e.g. typing (SETQ FOO (REVERSE (SETQ FIE —))) will add both FOO and FIE 
to spellings3 . 

Userwords is a list containing both Functions and variables that the user has 
referred to e.g. by breaking or editing. Userwords is used for spelling 
correction by arglist . unsavedef . prettyprint . break , editf , advise , etc. 
Userwords is initially NIL. Function names are added to it by define , defineq . 
load, (when loading compiled code, or loading exprs to property lists) 
unsavedef , editf . editv , editp , prettyprint . etc. Variable names are added to 
userwords at the same time as they are added to spellings3 . In addition, the 
variable lastword is always set to the last word added to userwords , i.e. the 
last function or Variable referred to by the user, and the respelllng of NIL is 
defined to be the value of lastword . Thus, if the user has just defined a 
function, he can then edit it by simply typing EDITFO, or prettyprint it by 
typing PP(). 

Each of the above four spelling lists are divided into two sections separated 
by a NIL. The first section contains the 'permanent 1 words; the second section 
contains the temporary words. New words are added to the corresponding 
spelling list at the front of its temporary section. 20 (If the word is already 
in the temporary section, it is moved to the front of that section; if the word 
is in the permanent section, no action is taken.) If the length of the 

ln " “ ------ -------- 

Only if the atom has a value other than NOBIND. 
on 

Except that functions added to spellingsl or spellings2 by lispx are always 
added to the end of the permanent section. 
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temporary section then exceeds a specified number, the last (oldest) Word in 
the temporary section is forgotten, i.e. deleted. This procedure prevents the 
spelling lists from becoming cluttered with unimportant words that are no 
longer being used, and thereby slowing down spelling correction time. Since 
the spelling corrector moves each Word selected as a respelling to the front of 
its spelling list, the word is thereby moved into the permanent section. Thus 
once a word is mispelled and corrected, it is considered important and will 
never be forgotten. 

The maximum length of the temporary section for spellingsl . spellings2 . 
s£ellinas3 and userwords is given by the value of #spellingsl . #spellings2 . 
*sjp§l ling s3, and #userwords , initialized to 30, 30, 30, and 60 respectively. 
Using these values, the average length of time to search a spelling list for 
one word is about 4 milliseconds 


17.4 Error Correction 

As described in Section 16, wheriever the Interpreter encounters an atomic form 
with no binding, or a non-atomic form car of which is not a function or 
function object, it calls the function faulteval . Similarly, when apply is 
given an undefined function, it calls faultapply . When DWIM is enabled, 
faulteval and faultapply are redefined to first call dwimblock . a part of the 
DWIM package. If the user abcirts by typing control-E, or if he indicates 
disapproval of DWIM's intended correction by answering N as described on page 


If the word is at the front of the spelling list, the time required is only 
1 millisecond. If the word is not on the spelling list, i.e. the entlre 
list must be searched, the time is proportional to the length of the list: 
to search a spelling list of length 60 takes about 7 milliseconds. 
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pp 

17.6, or if DWIM cannot declde how to fix the error, dwimblock returns NIL. 

In this case, faulteval and faultapply proceed exactly as described in Section 
16, by printing a U.B.A. or U.O.F. tnessage, and going into a break if the 
requirements of breakcheck are met, otherwise unwinding to the last errorset . 

If DWIM can (and is allowed to) correct the error, dwimblock exits by 
performing reteval of the corrected form, as of the Position of the call to 
faulteval or faultapply . Thus in the example at the beginning of the chapter, 
when DWIM determined that ITIMS was ITIMES misspelled, DWIM called reteval with 
(ITIMES N (FACCT 8SUB1 N)). Since the Interpreter uses the value returned by 
faulteval exactly as though it were the value of the erroneous form, the 
computation will thus proceed exactly as though no error had occurred. 

In addition to continuing the computation, DWIM also repairs the cause of the 
error whenever possible. Thus in the above example, DWIM also changed (with 
rplaca ) the expression (ITIMS N (FACCT 8SUB1 N)) that caused the error. 

Error correction in DWIM is divided into three categories: unbound atoms, 
undefined cars of form, and undefined function in apply . Assuming that the 
user approves if he is asked, the action taken by DWIM for the various types of 
errors in each of these categories is summarized below. The protocol of DWIM's 
interaction with the user has been described earlier. 


p O • 

If the user answers with t, (see page 17.6) dwimblock is exited by 
performing reteval[FAULTEVAL;(ERROR!)], i.e. an error is generated at the 
Position of the call to faulteval. 


23 

If the user's program had c omputed the form and called eval , e.g. performed 
(EVAL (LIST X Y)) and the value of x was a misspelled function; it would 
not be possible to repair the cause of the error, although DWIM could 
correct the misspelling each time it occurred. 
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Unbound Atoms 


1. If the first character of tha unbound atom is DWIM assumes that the user 
(intentionally) typed ’atora for (QUOTE atom) and makes the appropriate 
change. No message is typed, and no approval requested. 

If the unbound atom is just ' itself, DWIM assumes the user wants the next 
expression quoted, e.g. (CONS X ’(A ß C)) will be changed to 
(CONS X (QUOTE (A B C))). Again no message will be printed or approval 
asked. (If no expression follows the DWIM gives up.) 

2. If CLISP (Section 23) is enabled, and the atom is part of a CLISP 
construct, the CLISP transformation is performed and the result returned, 
e.g. N-l is transformed to (SUB1 N). 

3. If the atom contains an 8, DWIM assumes the 8 wäs intended to be a left 
parenthesis, and calls tho editor to make appropriate repairs on the 
expression containing the atom. DWIM assumes that the user did not notice 
the mistake, i.e. that the entire expression was affected by the missing 
left parenthesis. For example, if the user types 

(SETQ X (LIST (CONS 8CAR Y) (CDR Z)) Y), the expression will be changed to 
(SETQ X (LIST (CONS (CAR Y) (CDR Z)) Y)). 

The 8 does not have to be the first character of the atom, e.g. DWIM will 
handle (CONS X8CAR Y) correctly. 

4. If the atom contains a 9, DWIM assumes the 9 was intended to be a right 
parenthesis and operates as in number 3. 

5. If the atom begins with a 7, the 7 is treated as a ', e.g. 7FOO becomes 
’FOO, and then (QUOTE FOO). 

6 . If the atom is an edit command (a member of editcomsa ). and the error 

occurred in type-in, the pffect is the same as though the user typed 
EDITF(), followed by the atom, i.e. DWIM assumes the user wants to be in 
the editor editing the last thing he referred to. Thus, if the user 
defines the function foo and then types P, he will see =FOO, followed by 
EDIT, followed by the printout associated with the execution of the P 
command, followed by *, at which point he can continue editing foo . 

? - dwimuserfn =T, DWIM calls dwimuserfn . and if it returns a non-NIL value, 
DWIM returns this value. dwimuserfn is discussed below. 

8 . If the unbound atoms occurs in a function, DWIM attempts spelling 

correction using as a spelling list the list of lambda and prog variables 

of the function. 

9. If the unbound atom occurred in a type-in to a break, DWIM attempts 

spelling correction using the lambda and prog variables of the broken 
function. 

10. Otherwise, DWIM attempts spelling correction using spellings3 . 

If all fall, DWIM gives up. 
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Undefined car of Form 


1. If car of the form is T, DWIN assumes a misplaced T clause and operates as 
descrlbed on page 17.8. 

2. If car of the form is F/L, DWIM changes the F/L to 

FUNCTION(LAMBDA,e.g. (F/L (Y) (PRINT (CAR Y))) is changed to 

(FUNCTION (LAMBDA (Y) (PRINT (CAR Y))). No message is printed and no 
approval requested. If the user omits the variable list, DWIM supplies 
(X), e.g. (F/L (PRINT (CAR X))) becomes 

(FUNCTION (LAMBDA (X) (PRINT (CAR X)))). DWIM determines that the user has 
supplied the variable list when more than one expression follows F/L, car 
of the first expression is not the name of a function, and every element in 
the first expression is atomic. For example, DWIM will supply (X) when 
correcting (F/L (PRINT (CDR X)) (PRINT (CAR X))). 

3. car of the form is IF, if, or one of the CLISP iterative Statement 
operators, e.g. FOR, WHILE, DO et al, the indicated transformation is 
performed, and the result returned as the corrected form. 

4. If car of the form has a function definition, DWIM attempts spelling 
correction on car of the definition using the spelling list 
(LAMBDA NLAMBDA). 

5. If car of the form has an EXPR property, DWIM prints car of the forin, 
followed by ’UNSAVED', performs an unsavedef , and continues. No approval 
is requested. 

6. If car of the form has a property FILEDEF, the definition is to be found on 
a file. If the value of the property is atomic, the entire file is to be 
loaded. If a list, car is the name of the file and cdr the relevant 
functions, and loadfns will be used. DWIM first checks to see if the file 
appears in the attached directory, <NEWLISP>'s directory, or <LISP>'s 
directory, and if found, types "SHALL I LOAD" followed by the file name or 
list of functions. If the user approves, DWIM loads the function(s) or 
file, and continues the computation. edita, breakdown , circlmaker , 
cplists , and the pattern match Compiler and record capability of CLISP are 
implemented in this fashion. 

7. If CLISP is enabled, and car of the form is part of a CLISP construct, the 
indicated transformation is performed, e.g. (N*-N~l) becomes 
(SETQ N (SUB1 N)). 

8. If car of the form contains an 8, DWIM assumes a left parenthesls was 
intended e.g. (CON58CAR X). 

9. If car of the form contains a 9, DWIM assumes a right parenthesis was 
intended. 

10. If car of the form is a list, DWIM attempts spelling correction on caer of 
the form using spelling list (LAMBDA NLAMBDA). If successful, DWIM returns 
the corrected expression itself. 

11. If car of the form is a small number, and the error occurred in type-in, 
DWIM assumes the form is really an edit command and operates as descrlbed 
in case 6 of unbound atoms. 

12. If car of the form is an edit command (a member of edltcomsl), DWIM 
operates as in 11. 

13. If dwimuserfn sT. dwimuserfn is called, and if it returns a non-NIL value, 
DWIM returns this value. 
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14. If the error occurs in a function, or in a type-in while in a break, DWIM 

checks to see if the last character in car of the form is one of the lambda 

or prog variables, and if the first n-i characters are the name of a 

defined function, and if so makes the corresponding change, e.g. 

(MEMBERX Y) will be changed to (MEMBER X Y). The protocol followed will be 
the same as for that of spelling correction, e.g. if approvefla»T. DWIM 
will type MEMBERX [IN FOO] ■> MEMBER X? -“ 

15. Otherwise, DWIM attempts spelling correction using spellinas2 as the 
spelling list. 

If all fail, DWIM gives up. 


Undefined Function in Apply 

1. If the function has a definition, DWIM attempts spelling correction on car 

of the definition using the spelling list (LAMBDA NLAMBDA). ~ 

2. If the function has an EXPR property, DWIM prints its name followed by 
'UNSAVED', performs an unsavedef and continues. No approval is requested. 

3. If the function has a property FILEDEF, DWIM proceeds as in case 6 of 
undefined car of form. 

4. If the error resulted from type-in, and CLISP is enabled, and the function 
name contains a CLISP operator, DWIM performs the indicated transformation, 
e.g. the user types FOO«-(APPEND FIE FUM). 

5. If the function name contains an 8, DWIM assumes a left parenthesis was 
intended, e.g. EDIT8F00]. 

6. If the 'function' is a list;, DWIM attempts spelling correction on car of 

the list using the spelling list (LAMBDA NLAMBDA). ~~ 

7. If the function is a number and the error occurred in type-in, DWIM assumes 
the function is an edit cornmand, and operates as described in case 6 of 
unbound atoms, e.g. the user types (on one line) 3-1 P. 

8. If the function is the name of an edit command (on either editcomsa or 
editcomsl ), DWIM operates as in 7, e.g. user types F COND. 

9. If dwimuse rfn=T, dwimuserfn is called, and if it returns a non-NIL value, 
this value is treated as the form used to continue the computation. 

10. Otherwise DWIM attempts spelling correction using spellinasl as the 

spelling list, -*— 

11. Otherwise DWIM attempts spelling correction using spellinas2 as the 

spelling list. - 

If all fail, DWIM gives up. 
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17.5_DWIMUSERFN 


Dwimuserfn provides a convenient way of adding to the transformations that OWIN 
performs, e.g., the user might want to change atoms of the form SX to 
(QA4LOOKUP X). The user defines dwimuserfn as a function of no arguments, and 
then enables it by setting dwimuserfn to T. DWIH will call dwimuserfn before 
attempting spelling correction, but after performing its other transformations, 
e.g. F/L, 8, 9, CLISP, etc. If dwimuserfn returns a non-NIL value, this value 
is treated as a form to be evaluated and returned as the value of faulteval or 
faultapply . Otherwise, if dwimuserfn returns NIL, DWIH proceeds as when 
dwimuserfn is not enabled, and attempts spelling correction. Note that in the 
event that dwimuserfn is to handle the correction, it is also responsible for 
any modifications to the original expression, i.e. DWIH simply takes its value 
and returns it. 

In order for dwimuserfn to be able to function, it needs to know various things 
about the context of the error. Therefore, several of DWIH's internal 
variables have been made SPECVARS (See Section 18) and are therefore "visible” 
to dwimuserfn . Below are a list of those variables that may be useful. 


faultx for unbound atoms and undefined car of form, 

faultx is the atom or form. For undefined 
functions in apply , faultx is the name of the 
function. 

faultargs for undefined functions in apply , faultargs is the 

list of arguments. 

faultapplyflg Is T for undefined functions in apply . (Since 

faultargs may be NIL, faultapplyflg is necessary 
to distinguish between unbound atoms and undefined 
function in apply . since faultx is atomic in both 
cases). 

tail for unbound errors, tail is the tail car of which 

is the unbound atom. Thus dwimuserfn can replace 
the atom by another expression by performing 
(/RPLACA TAIL expr) 

parent for unbound atom errors, parent is the form in 

which the unbound atom appears, i.e. tail is a 
tail of parent . 
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type-in7 


true if error occurred in type-in. 


name of function in which error occurred. 
( faultfn is TYPE-IN when the error occurred in 
type-in, and EVAL or APPLY when the error occurred 
under an oxplicit call to EVAL or APPLY). 

true if error was encountered during dwimifying as 
opposed to during running the program. 

definition of faultfn . or argument to eval . i.e. 
the superform in which the error occurs. 


17.6 Spelling Corrector Alqorithm 

The basic philosophy of DWIM spelling correction is to count the number of 
disagreements between two words, and use this number divided by the length of 
the longer of the two words as a raeasure of their relative disagreement. One 
minus this number is then the relative agreement or closeness. For example, 
CONS and CONX differ only in their last character. Such Substitution errors 
count as one disagreement, so that the two words are in 75% agreement. Most 
calls to the spelling corrector specify rel=70, 24 so that a single Substitution 
error is permitted in words of four characters or longer. However, spelling 
correction on shorter words is possible since certain types of differences such 
as single transpositions are not counted as disagreements. For example, AND 
and NAD have a relative agreement of 100. 

The central function of the spelling corrector is chooz . chooz takes as 
arguments: a word, a spelling list, a minimum relative agreement, and an 
optional functional argument, xword . splst , rel . and fn respectively. 25 


faultfn 

dwimifyflg 

expr 


Integers between 0 and 100 are used instead of numbers between 0 and 1 in 
order to avoid floating point arithmetic. 


25 


fnsNIL is äquivalent to fn=(LAMBDA NIL T). 




chooz proceeds down splst examining each word. Words not satisfying fn, or 
thoso obviously too long or too short to be sufficiently close to xword are 
immediately rejected. For example, if reWO, and xword is 5 characters long, 
words longer than 7 characters will be rejected. 26 

If t wor d, the current word on splst . is not rejected, chooz computes the number 
of disagreements between it and xword by calling a subfunction. skor . 

skor operates by scannlng both words from left to right one character at a 

time. Characters are considered to agree if they are the same characters; or 

appear on the same teletype key (i.e. a shift mistake), for example, * agrees 
28 

with 1 with !, etc.; or if the character in xword is a lower case Version 
of the character in tword . Characters that agree are discarded, and the 
skoring continues on the rest of the characters in xword and tword ', 

If the first character in xword and tword do not agree, skor checks to see if 
either character is the same as one prevlously encountered, and not accounted- 
for at that time. (In other words, transpositions are not handled by 
lookahead, but by lookback.) A displacement of two or fewer positions is 


Special treatment is necessary for words shorter than xword . since doubled 
letters are not counted as disagreements. For example, CONNSSS and CONS 
have a relative agreement of 100. (Certain teletype diseases actually 
produce this sort of stuttering.) chooz handles this by counting the number 
of doubied characters in xword before it begins scanning splst . and taking 
this into account when deciding whether to reject shorter words. 


27 


skor actually operates on the list of character Codes for each word. This 
list is computed by chooz before calling skor using dcheon . so that no 
storage is used by the entire spelling correction process. 


28 


For users on model 33 teletypes, as indicated by the value of model33fla 
being T @ and p appear on the same key, as do L and /, N and L, and 0 and 
and . V. wil1 Proceed accordingly. The initial value for model33fla is 
T, except that various sites override this by use of the username-greeting 
feature described in Section 22. 8 
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counted as a tranposition; a displacement by more than two positions is counted 
as a disagreement. In either case, both characters are now considered as 
accounted for and are discarded, and skoring continues. 

If the first character in xword and tword do not agree, and neither are equal 
to previously unaccounted-for characters, and tword has more characters 
remaining than xword , skor removes and saves the first character of tword . and 
continues by comparing the rest of tword with xword as described above. If 
the same or fewer characters remaining than xword , the procedure is 
the same except that the character is removed frora xword .^ In this case, a 
special check is first made to see if that character is equal to the previous 
character in xword , or to the next character in xword , i.e. a double character 
typo, and if so, the character is considered accounted-for, and not counted as 
a disagreement . 30 

When skor has finished Processing both xword and tword ln this fashion, the 
value of skor is the number of unaccounted-for characters, plus the number of 
disagreements, plus the number of tranpositions, with two qualifications: (1) 
if both xword and tword have a character unaccounted-for in the same Position, 
the two characters are counted only once, i.e. Substitution errors count as 
only one disagreement, not two; and (2) if there are no unaccounted-for 
characters and no disagreements, transpositions are not counted. This permits 
spelling correction on very short words, such as edit commands, e.g. 


2g -------- 

Whenever more than two characters in either xword or tword are unaccounted 

for, skoring is aborted, i.e. xword and tword are considered to disagree. 


In this case, the 'length' of xword is also decremented. Otherwise making 
xword sufficiently long by adding double characters would make it be 
arbitrarily close to tword . e.g. XXXXXX would correct to PP. 
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XRT->XTR. 


31 


17.7 DWIM Functions 


dwim[x] If x=NIL, disables DWIM; value is NIL. If x*C, 

enables DWIM in cautious mode; value is CAUTIOUS. 
If x*T, enables DWIM in trusting mode; value is 
TRUSTING. For all other values of x, generates an 
error. 


dwimify[x] x is a form or the name of a function. dwimify 

performs all corrections and transformations that 
would occur if x were actually run. dwimify is 
undoable. 

OW edit macro. dwimifies current expression. 

addspell[x;splst;n] Adds x to one of the four spelling lists as 

follows: 32 

if splst =NIL. adds x to userwords and to 
spellingsZ . Used by defineq . 


Transpositions are also not counted when fastypeflg =T. for example, IPULX 
and IPLUS will be in 80X agreement with fastypeflg aT, only 60X with 
fastypeflg =NIL. The rationale behind this is that transpositions are much 
more common for fast typists, and should not be counted as disagreements, 
whereas more deliberate typists are not as likely to combine tranpositions 
and other mistakes in a single Word, and therefore can use more 
conservative metric. fastypeflg is initially NIL. 

32 

If x is already on the spelling list, and in its temporary section, 
addspell moves x to the front of that section. See page 17.13 for complete 
description of algorithm for maintaining spelling lists. 
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If splst aQ, adds x to userwords . Used by load 
when loading exprs to property lists. 

If splst »!, adds x to spellingsl (at end of 

permanent section). Used by lispx . 

splst a2, adds x to spellings2 (at end of 

permanent section). Used by lispx . 

If splst«*3, adds x to userwords and spellinas3 . 

splst can also be a spelling list, in which case n 
is the (optional) length of the temporary section. 

addspell sets lastword to x when splst «HIL. 0 or 
3. 


If x is not a literal atom f addspell takes no 
action. 

misspelled?[xword;rel;splst;flg;tail;fn] 

If xword «NIL or alt-mode, misspelled? 
prints * followed by the value of lastword . and 
returns this as the respelling, without asking for 
approval. Otherwise, misspelled? checks to see if 
xwor-jd is really misspelled, i.e. if fn applied to 
xwor - ^ is true, or xword is already contained on 
splsit. In this case, misspelled? simply returns 
xword. Otherwise misspelled? computes and returns 

fixspell[xword;rel;splst;flg;tail;fn]. 
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f ixspel1[ xword; rel; splst; f lg; tai1;fn ] 33 

The value of fixspell is either the respelling of 
xword or NIL. fixspell perforras all of the 
interactlons described earlier, lncluding 
requesting user approval if necessary. 

If xword =NIL or S (alt-raode), the respelling is 
the value of lastword , and no approval is 
requested. 

If flgsNIL, the correction is handled in type-in 
mode, i.e. approval is never requested, and xword 
is not typed. If flg=T, xword is typed (before 
the *) and approval is requested if approveflg gf. 

If tail is not NIL, and the correction is 
successful, car of tail «is replaced by the 
respelling (using /rplaca ). In addition, fixspell 
will correct misspellings caused by running two 
words together. 34 In this case, car of tail is 
replaced by the two words, and the value of 
fixspell is the first one. For example, if 
fixspell is called to correct the edit command 
(HOVE TO AFTERCOND 3 2) with tail*(AFTERCOND 3 2), 
tail would be changed to (AFTER COND 2 3), and 

^ — — — - — — — — — - — — — — 
fixspell has some additional arguments, for internal use by DWIM. 

34 

In this case, user approval is always requested. In addition, if the first 
word contains either fewer than 3 characters, or fewer characters than the 
second word, the default will be N. 
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fixspell would return AFTER (subject to user 
approval where necessary) 

fixspell generates an error if xword is already on 
splst . 

The time required for a call to fixspell with a spelling list of length 60 when 
the entire list must be searched is .5 seconds. If fixspell determines that 
the first word on the spelling list is the respelling and does not need to 
search any further, the time required is .02 seconds. In other words, the time 
required is proportional to the number of words with which xword is compared, 
with the time for one cotnparison, i.e. one call skor , being roughly .01 seconds 
(varies slightly with the number of characters in the words being compared.) 

The function chooz is provided for users desiring spelling correction without 
any output or interaction: 

chooz[ xword; rel; splst ;tail; tief lg; fn The value of chooz is the 

corrected spelling of xword ^ or NIL; chooz 
performs no interaction and no output. If 
tieflg sf and a tie occurs, i.e. more than one word 
on splst is found with the same closeness, chooz 
returns the first word. If tieflg eNIL. and a tie 
occurs, chooz returns NIL. 


If tail=T, fixspell will also perform run-on corrections, returning a 
dotted pair of the two words in the event the correction is of this type. 


36 

cho °z has some additional arguments, for internal use by DWIM. 


chooz does not perform spelling completion, only spelling correction. 


17.26 




If tail is not NIL, chooz will corroct a 


misspelling consisting of running two words 
together, e.g. (BREAKFOO) for (BREAK FOO). The 
value of chooz in this case is a dotted pair of 
the two words, e.g. (BREAK . FOO). Both DWIN and 
the editor use this Option. 

fncheck[fn;nomessflg;spellflg] The task of fncheck is to check whether fn is 

the name of a function and if not, to correct its 
spelling. 33 If fn is the narae of a function or 
spelling correction is successful, fncheck adds 
the (corrected) name of the function to userwords 
using addspell . and returns it as its value. 

nomessflg informs fncheck whether or not the 
calling function wants to handle the unsuccessful 
case; if nomessflg is T, fncheck simply returns 
NIL, otherwise it prints fn NOT A FUNCTION and 
generates a non-breaking error. 

fncheck calls misspelled? to perform spelling 
correction, so that if fn=NIL, the value of 
lastword will be returned. spellflg corresponds 
to mlsspelledT 's fourth argument, flg . If 
spellflg sT, approval will be asked if DWIN was 
enabled in CAUTIOUS mode, i.e. if approveflg »T. 


OO 

Since fncheck is called by many low level functions such as arglist , 
unsavedef . etc., spelling correction only takes place when dwimflg =T, so 
that these functions can operate in a small INTERLISP System which does not 
contain DWIN. 
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------ is cur »~ently used by arglist , unsavedef . prettyprint . breakO . breakin . 

chnflnm, advise, printstructura . firstfn . lastfn . calls . and edita. For 
example, br eakO calls fncheck with nomessflg °T since if fncheck cannot produce 
a function, breakO wants to define a dummy one. printstructure however calls 
fncheck with nomessflg =NIL. since it cannot operate without a function. 

Many other System functions call misspelled? or fixspell directly. For 
example, break1 calls fixspell on unrecognized atomic inputs before attempting 
to evaluate them, using as a spelling list a list of all break commands. 
Similarly, lispx calls fixspell on atomic inputs using a list of all lispx 
commands. When unbreak is given the name of a function that is not broken, it 
calls f ixspell with two different spelling lists, first with brokenfns . and if 
that falls, with userwords. makefile calls misspelled? using fileist as a 
spelling list. Finally, lgad , bcompl . brecompile . tcompl . and recompile all 
call misspelled ? if their input file(s) won't open. 
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SECTION 16 


THE COMPILER AND ASSEMBLER 1 


18.1 The Compiler 

The Compiler is available in the Standard INTERLISP System. It may be used to 
compile individual functions as requested or all function definitions in a 
Standard formet LOAD file. The resulting Code may be stored as it is compiled, 
so as to be available for immediate use, or it may be written onto a file for 
subsequent loading. The Compiler also provides a means of specifying sequences 
of machine instructions via ASSEM8LE. 

The most common way to use the Compiler is to compile from a symbollc 
(BQttydef) file, producing a corresponding file which contains a set of 
functions in compiled form which can be quickly loaded. An alternate way of 
using the Compiler is to compile from functions already defined in the user's 
INTERLISP System. In this case, the user has the Option of specifying whether 
the code is to be saved on a file for subsequent loading, or the functions 
redefined, or both. In either case, the Compiler will ask the user certain 
questions concerning the Compilation. The first question is: 


The Compiler itself, i.e. the part that actually generates code, was 
written and documented by, and is the responsibility of A.K. Hartley. The 
user interfaces, i.e. tcompl, recompile. bcompl. and brecomDile. were 
written by W. Teitelman. - -- 
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LISTING? 


The answer to this question Controls the generation of a listing and is 
explained ln full below. Howevor, for most applications, the user will want to 
answer this question with either ST or F, which will also specify an answer to 
the rest of the questions which would otherwise be asked. ST means the user 
wants the Compiler to STore the new definitions; F means the user is only 
interested in compiling to a File, and no storing of definitions is performed. 
In both cases, the Compiler will then ask the user one more question: 

OUTPUT FILE: 

to which the user can answer: 

N or NIL no output file. 

File name file is opened if not already opened, and compiled code 
is written on the file. 


Example: 


-COMPILER FACT FACTI FACT2)) 
LISTING? ST 
OUTPUT FILE: FACT.COM 
(FACT COMPILING) 


(FACT REOEFINED) 2 


(FACT2 REOEFINEO) 
(FACT FACTI FACT2) 


Compiler output and error messages are explained on page 18.48-52. 
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This process caused the function* FACT, FACTI, and FACTZ to be compiled, 
redefined, and the compiled definitions also written on the file FACT.COM for 
subsequent loading. 


18.2 Compiler Questions 


The Compiler uses the free variables lapflg . strf . svflg . lcfil and lstfil 
which determines various tnodes of Operation. These variables are set by the 
answers to the 'compset' questions. When any of the top level compiling 
functions are called, the function compset is called which asks a number of 
questions. Those that can be answered 'yes* or 'no' can be answered with YES, 
Y, or T for YES; and NO, N, or NIL for NO. The questions are: 


1. LISTING? 


The answer to this question Controls the generation of a listing. Possible 
answers are: 

1 Prints output of pass 1, the LAP macro code. 3 

2 Prints output of pass 2, the machine code. 

YES Prints output of both passes. 

NO Prints no listings. 


The variable lapflg is set to the answer. If the answer is affirmative, 
compset will type FILE: to allow the user to indicate where the output is to be 
written. The variable lstfil is set to the answer. 


The LAP and machine code are usually not of interest but can be helpful in 
debugging macros. 
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There are three other possible unswers to LISTING? - each of which specifies a 
complete mode for compiling. They are: 

S Same as last settlng. 

F Compile to File (no definition of functions). 

ST STore new definitions. 

Implicit in these three are the answers to the questions on disposition of 
compiled code and expr's, so questions 2 and 3 would not be asked if 1 were 
answered with S, F, or ST. 

2. REDEFINE? 

YES Causes each function to be redefined as it is compiled. The 
compiled code is stored and the function definition changed. 
The variable strf is set to T. 

NO Causes function definitions to remain unchanged. The variable 
strf is set to NIL. 

The answer ST for the first question implies YES for this question, F implies 
NO, and S makes no change. 

3. SAVE EXPRS? 

If answered YES, svflg is set to T, and the exprs are saved on the property 
list of the function name. Otherwise they are discarded. The answer ST for 
the first question implies YES for this question, F implies NO, and S makes no 
change. 
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4. 


OUTPUT FILE: 


If the compiled definitions are to be written for later loading, you should 
provide the narae of a file on which you wish to save the code that is 
generated. If you answer T or TTY:, the output will be typed on the teletype 
(not particularly useful). If you answer N, NO, or NIL, output will not be 
done. If the file natned is already open, it will continue to be used. The 
free variable lcfil is set to the name of the file. 


18.3 Nlambdas 


Vfhen compiling the call to a function, the Compiler must prepare the arguments 
to the function in one of three ways: 

1. Evaluated (SUBR, SUBR*, EXPR, EXPR*, CEXPR, CEXPR*) 

2. Unevaluated, spread (FSUBR, FEXPR, CFEXPR) 

3. Unevaluated, not spread (FSUBR*, FEXPR*, CFEXPR*) 

In attempting to determine which of these three is appropriate, the Compiler 
will first look for a definition araong the functions in the file that is being 
compiled. If the function is not contained there, the Compiler will look for 
other Information which can be supplied by the user by including nlambda 
nospread functions on the list nlama (for nlam bda atoms), and including nlambda 
spread functions on the list nlaml (for nlam bda l.ist), and including lambda 
functions on the list lams . 4 If the function is not contained in the file, 5 or 


Including functions on lams is only necessary to override in-core nlambda 
definitions, since in the absence of other Information, the Compiler 
assumes the function is a lambda. 


5 The function can be defined anywhere in any of the files given as arguments 
to bcompl . tcompl . brecompile or recompile . 
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on the list nlama , nlaml , or lams , the Compiler will look for a current 
definition. If the function is defined, its function type is assumed to be the 
desired type. If it is not defined, the Compiler assumes that the function is 
of type 1, i.e. its arguments are to be evaluated.^ ^ In other words, if there 
are type 2 or 3 functions called from the functions being compiled, and they 
are only defined in a separate file, they must be included on nlama or nlaml , 
or the Compiler will incorrectly assume that their arguments are to be 
evaluated, and compile the calling function correspondingly. Note that this is 
only necessary if the Compiler does not 'know' about the function. If the 
function is defined at compile time, or is handled via a macro, or is contained 
in the same group of files as the functions that call it, the Compiler will 
automatically handle calls to that function correctly. 


18.4 Globalvars 

Another top level free variable that affects compilations is glohalvars . Any 
variables that appear on the list globalvars . and are used freely in a compiled 
function, are always accessed through their value cell. In other words, a 
reference to the value of this variable is equivalent to 
(CAR (QUOTE variable)), regardless of whether or not it appears on the stack. 


Before making this assumption, if the value of compileuserfn is not NIL, 
the Compiler calls (the value of) compileuserfn giving it as arguments cdr 
of the form and the form itself, i.e. the Compiler does 
(APPLY* COMPILEUSERFN (CDR form) form). If a non-NIL value is returned, it 
is compiled instead of form. If NIL is returned, the Compiler compiles the 
original expression as a call to a lambda-spread that is not yet defined. 
CLISP (Section 23) uses compileuserfn to teil the Compiler how to compile 
iterative Statements, IF-THEN-ELSE Statements, and pattern match 
constructs. 


The names of functions so treated are added to the list alams 
(for assumed lamdas). alams is not used by the Compiler; it is maintained 
for the user's benefit, i.e. so that the user can check to see whether any 
incorrect assumptions were made. 
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i.e., the stack is not even searched for this variable when the compiled 
function is entered. Similarly, (SETQ variable value) is äquivalent to 
(RPLACA (QUOTE variable) value); i.e., it sets the top-level value. 

All systera Parameters, unless otherwise specified, are GLOBALVARS, i.e. are 
members of the list globalvars , e.g. brokenfns . editmacros . #rpars , dwimflg . et 
al. Thus, rebinding these variables will not affect the behavior of the 
System: instead, the variables must be reset to their new values, and if they 
are to be restored to their original values, reset again. For example, the 
user might write ...(SETQ globalvar new-value) form (SETQ globalvar old-value). 
Note that in this case, if an error occurred during the evaluation of form , or 
a control-D was typed, the global variable would not be restored to its 
original value. The function resetvar (described in Section 5) provides a 
convenient way of resetting global variables in such a way that their values 
are restored even if an error occurred or control-D is typed. 


18.5 Compiler Functions 

Note: when a function is compiled from its in core definition, i.e., via 
coropile (and certain calls to recompile ). as opposed to 'tcompl (which uses the 
definitions on a file), and the function has been modified by break , trace . 
breakin , or advise , it is restored to its original state, and a message printed 
out, e.g., FOO UNBROKEN. Then, if the function is not defined as an expr, its 
property list is searched for the property EXPR (see savedef , Section 8). If 
there is a property EXPR, its value is used for the Compilation, otherwise, the 
Compiler prints (fn NOT COMPILEABLE), and goes on to the next function. 


Since the stack does not have to be searched to find the values of these 
variables, a considerable savings in time is achieved, especially for deep 
computations. 
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compile[x;flg] 


compilel[name;def] 


tcompl[files] 


strf is orte of 


x is a list of functions (if atoraic, list[x] is 
used). compile first asks the Standard Compiler 
questions, and then compiles each function on x# 
using its in-core definition. Value is x. 

If compiled definitions are being dumped to a 
file, the file is closed unless flg =T. 

compiles def . redefining name if strf*T.^ compilel 
is used by compile . tcompl . and recompile . If 
dwimifycompflg is T, or def contains a CLISP 
declaration. def is dwimified before compiling. 
See Section 23. 

tcompl is used to 'compile files', i.e., given a 
symbol ic load file (e.g., one created by 
prettydef ). it produces a file that contains the 
same S-expressions as the original symbolic file, 
except that every defineq is replaced by the 
corresponding compiled definitions. This 
'compiled* file can be loaded into any INTERLISP 
System with load . 

files is a list of symbolic files to be compiled 
(if atomic, list[files] is used). tcompl asks the 
Standard Compiler questions, except for 
OUTPUT FILE: Instead, the output from the 
Compilation of each symbolic file is written on a 


the variables set by compset . described earlier. 
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file of the same name suffixed with COM, e.g., 
tcompl[(SYM1 SYMZ)] produces two files, SYM1.COM 
and SYM2.C0M. /<? 

tcompl processes each file one at a time, reading 
in the entire file. Then, for each DEFINEQ, 
tcompl adds any NIAMBDA's in the DEFINEQ to nlama 
or nlaml . iJ and adds lambdas to the list lams, 12 
so that calls to these functions will be compiled 
correctly. Expressions beginning with DECLARE can 
be used to affect the Compilation, e.g. set up 
MACROS. tcompl evaluates each expression in ( cdr 
of) the DECLARE, presumably for effect.* 3 tcompl 
then compiles each function in the DEFINEQ's. 
Finally, all other expressions in the file, e.g. 
RPAQQ's, DEFLIST's, etc., are written onto the 
output file.** 


The file name is constructed from the name field only, e.g. 
tcompl[<B0BR0W>F00.TEM;3] produces FOO.COM on the connected directory. The 
Version number will be the Standard default. 


11 described earlier, page 18.5. 


nlam§. nlaml , ant j i a ms are rebound to their top level values (using 
resetvar) by tcompl , recompile , bcompl , brecompile, compile, and 
blo gkcompile , so that any additions to these lists while inside of these 
functions will not propagate outside. 


13 

DECLARE is defined the same as QUOTE, so it will have no effect when the 
symbolic file is loaded. tcompl , recompile , bcompl . and brecompile also 
evaluate any DEFLIST expression that was output by a COMPROP or COMPROP* 
prettydef command (see Section 14). 


except for DEFLISTs output by a COMPROP* prettydef command. 
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The value of tcompl is a llst of the names of the 


output files. All flies are properly terminated 
and closed. 


Recompile 

The purpose of recompile is to allow the user to update a compiled file without 
recompiling every function in the file. Recompile does this by using the 
results of a previous Compilation. It produces a compiled file similar to one 
that would have been produced by tcompl . but at a considerable savings in time 
by compiling selected functions and copying from an earlier tcompl or recompile 
file the compiled definitions for the remainder of the functions in the file. 
Even more savings can be achieved if the symbolic file being recompiled is 
currently in-core, i.e., was previously loaded, or was made from the user's 
current System. In this case, recompile will not have to read in the file, but 
can work from the in-core definitions . 15 

If the functions to be recompiled are currently defined as exprs, then 
recompile can be called with just one argument, the symbolic file; the rest of 
the arguments will be set appropriately. In other words, the raost common usage 
of recompile is in the following sequence, load[file;PROP], edit some functions 
(thus unsavedef ing them), makefile[file], and recompile[file], producing a new 
compiled file exactly equivalent to tcompl[file]. The rest of the discussion 
of recompile explains nonstandard usages, e.g., the symbolic file has not been 
loaded, some of the functions that have been changed are currently not unsaved, 
etc. 


This requires that the user observe the conventions of the 'file package' 
described in Section 14 when making the symbolic file, i.e., he used 
makefile or eise used pretty def with arguments of the form fileFNS, file. 
and fileVARS. 
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recompile[pfile;cfile;fns;coreflg] pfile is the narae of the £retty file to 

be compiled, cfile is the name of the compiled 
file containing compiled definitions that may be 
copied. fns is a list of the functions in pfile 
that are to be recompiled, i.e., they have been 
chariged (or defined for the first time) since 
cfile was made. Note that pfile , not fns , drives 
recompile . so that extra functions may appear on 
fns . If fns aT, all function in pfile currently 
defined as exprs (after unbreaking and unadvising) 
are recompiled. 

recompile asks the Standard Compiler questions, 
except for OUTPUT FILE: As with tcompl , the output 
automatically goes to pfile.COM .^ recompile then 
reads in pfile . As with tcompl , for each DEFINEQ, 
the NLAMBDAs are added to nlama and nlaml, and 
LAMBDAs are added to lams . Similarly, OECLAREs 
and OEFLISTs are treated the same as with tcompl . 
Then each function is compiled if it appears on 
fns , or fns»T and the function is an expr . 
Otherwise, recompile reads from cfile until it 
finds the compiled Version of the function it is 
working on, and then copies it (and all Compiler 
generated subfunctions) to pfile.COM . Finally, 
all other expressions are written onto pfile.COM . 

f — m m ~ ~ m. — m m, — ~ ~ mm m, m. m, — m, — — m, m. m, m, » m, m. m. m. — — m. ~ ~ ~ ~ ~ 

In general, all constructions of the form pfile.COM, pfileFNS, and 
pfileVARS are performed using the name field only. For example, if 
pfile =<BOBROW>FOO.TEM;3, pfile.COM means FOO.COM, pfileFNS means FOOFNS, 
etc. 
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Note that the user can thus rnodify an old compiled file so as to add new 
functions by prettydefing thet# in pfile and then including them on fns . 
Similarly, he can delete functions by simply not prettydefing them, since if 
they do not appear in pfile , they will never be compiled or copied to 
gfile.COM. Note, however that the entire process depends on the order of those 
functions in cfile that are to be copied being the same as those in pfile . For 
example, if FOO appears before FIE in cfile . but the order is reversed in 
£file, then when recompile attempts to copy FIE, it will skip over FOO. Then 
when it attempts to copy FOO, it will read to the end of cfile and not find it. 
In this case, it will generate an error FOO NOT FOUND. 

If the file pfile is in core, i.e., has been 
loaded, or eise was prettydef ed from this System, 
the user can take advantage of this by calling 
recompile with eoreflg =T. In this case, the 
procedure is the same as described above, but 
recompile 'fakes' reading pfile . instead 
detarmining what is on pfile from pfilefns and 
pfllevars ( recompile does read the dato from 
pfile . which it copies to the output file.) 

recompile will work correctly even for functions 
wriitten via the third argument to prettydef using 
a FNS command. (See Section 14). 

H cfile*NIL, pfile. COM is used for copying 
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See footnote on page 16.11. 
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Jron. In addition, if both fns and coreflg are 
NIL, they are set to T. This 1s the most common 
usage. 

The value of recompile is tha new compiled file, 
pfile.COM . 


18.6 Open Functions 

When a function is called from a compiled function, a System routine is invoked 
that sets up the Parameter and control push lists as necessary for variable 
bindings and return Information. As a result, function calls can take up to 
350 microseconds per call. If the amount of time spent inside the function is 
small, this function calling time will be a significant percentage of the total 
time required to use the function. Therefore, many 'small' functions, e.g., 
car , cdr , eg , not , cons are always compiled 'open', i.e., they do not result in 
a function call. Other larger functions such as proq , selectq . mapc , etc. are 
compiled open because they are frequently used. It is useful to know exactly 
which functions are compiled open in order to determine where a program is 
spending its time. Therefore below is a list of those functions which when 
compiled do not result in function calls. Note that the next section teils how 
the user can make other functions compile open via MACRO definitions.^ 


In other words, if cfile, the file used for obtaining compiled definltions 
to be copied, is NIL, pfile.COM is used, i.e., same name as output but a 
different Version number (one lass) than the output file. 
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The user can also affect the compiled code via compileuserfn , described in 
footnote on page 18.6. 




The following functions compile open: 


AC, AD01, AND, APPLY*, ARG, ARRAYP, ASSEMBLE, ATOM, BLKAPPLY, BLKAPPLY*, CAR, 
CDR, CAAR, ... CDDDAR, CDDDDR, CLOSER, COND, CONS, EQ, ERSETQ, EVERY, EVQ, 
FASSOC, FCHARACTER, FDIFFERENCE, FGTP, FIX, FIXP, FLAST, FLENGTH, FLOAT, 
FLOATP, FMEMB, FMINUS, FNTH, FPLUS, FQUOTIENT, FRPLACA, FRPLACD, FSTKARG, 
F5TKNTH, FTIMES, FUNCTION, GETHASH, GO, IDIFFERENCE, IGREATERP, ILESSP, IMINUS, 
IPLUS, IQUOTIENT, IREMAINDER, ITIMES, LIST, LISTP, LITATOM, LLSH, LOC, LOGAND, 
LOGOR, LOGXOR, LRSH, LSH, MAP, MAPC, MAPCAR, MAPCON, MAPCONC, MAPLIST, MINUSP, 
NEQ, NLISTP, NLSETQ, NOT, NOTEVERY, NOTANY, NULL, NUMBERP, OPENR, OR, PROG, 
PROG1, PROGN, RESETFORM, RESETVAR, RETURN, RPTQ, RSH, SELECTQ, SETARG, SETN, 
SETQ, SMALLP, SOME, STRINGP, SUB1, SUBSET, UNDONLSETQ, VAG, ZEROP 


18,7 Compiler Macros 

The INTERLISP Compiler includes a macro capability by which the user can affect 
the compiled code. Macros are defined by placing the macro definition on the 
property list of the corresponding function under the property MACRO. 20 When 
the Compiler begins compiling a form, it retrieves a macro definition for car 
of the form, if any, and uses it to direct the Compilation.The three 
different types of macro definitions are given below. 
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An expression of the form (DECLARE (DEFLIST ... (QUOTE MACRO))) can be used 
Mithin a function to define «i MACRO. DECLARE is defined the same as QUOTE 
can be placed so as to have no effect on the running of the 


and thus 
function. 
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The Compiler has built into it how to compile certain basic functions such 

etC ;* 1°. tl,at these wlU not be affected by macro 
fini*,ions. These functions are listed above. However, some of them are 

they S cJmpile lmPlemented Vla macros * 50 that the user could «hange the way 


18.14 




(1) Open macros - (LAMBDA ...) or (NLAMBDA ...) 

A function can be made to compile open by giving it a macro definition of the 
form (LAMBDA ...) or (NLAMBDA ...), e.g., 

(LAMBDA (X) (COND ((GREATERP X 0) X) (T (MINUS X)))) for abs. The effect is 
the same as though the macro definition were written in place of the function 
wherever it appears in a function being compiled, i.e., it compiles as an open 
LAMBDA or NLAMBDA expression. This saves the time necessary to call the 
function at the price of more compiled code generated. 

(2) Computed macros - (atom expression) 

A macro definition beginning with an atom other than LAMBDA, NLAMBDA, or NIL, 
allows computation of the INTERLISP expression that is to be compiled in place 
of the form. The atom which Starts the macro definition is bound to cdr of the 
form being compiled. The expression following the atom is then evaluated, and 
the result of this evaluation is compiled in place of the form. For example, 
list could be compiled this way by giving it the macro definition: 

[X (LIST (QUOTE CONS) 

(CAR X) 

(AND (CDR X) 

(CONS (QUOTE LIST) 

(CDR X] 

This would cause (LIST X Y Z) to compile as (CONS X (CONS Y (CONS Z NIL))). 
Note the recursion in the macro expansion. 22 Ersetq . nlsetg . map , mapc , mapcar . 
ma£conc, and so me, are compiled via macro definitions of this type. 

If the result of the evaluation is the atom INSTRUCTIONS, no code will be 
generated by the Compiler. It is then assumed the evaluation was done for 
effect and the necessary code, if any, has been added. This is a way of giving 
direct instructions to the Compiler if you understand it. 

— _ \ 

22 ----- -- ..... ------------... 

-Hst is actually compiled more efficiently. 
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(3) Substitution macro - (NIL expression) or (list expression) 

Each argument in the form being compiled is substituted for the corresponding 
atom in car of the macro definltion, and the result of the Substitution is 
compiled instead of the form, i.e., 

(SUBPAIR (CAR macrodef) (CDR form) (CAOR macrodef)). For example, the macro 
definition of addl is ((X) (IPLUS XI)). Thus, (AD01 (CAR Y)) is compiled as 
(IPLUS (CAR Y) 1). The functions addl . subl . neq , nlistp , zerop , flength , 
fmemb , fassoc , flast , and fnth are all compiled open using Substitution macros. 
Note that abs could be compiled open as shown earlier or via a Substitution 
macro. A Substitution macro, however, would cause (ABS (FOO X)) to compile as 
(COND ((GREATERP (FOO X) 0) (FOO X)) (T (MINUS (FOO X)))) and consequently 
(FOO X) would be evaluated three times. 

18.8 FUNCTION and Functional Arguments 

Expressions that begin with FUNCTION will always be compiled as separate 

OO 

functions named by attaching a gensym to the end of the name of the function 
in which they appear, e.g., FOOA0003. This gensym function will be called at 
run time. Thus if FOO is defined as 

(LAMBDA (X) ... (FOOl X (FUNCTION ...))...) and compiled, then when FOO is 
run, FOOl will be called with two arguments, X, and FOOAOOOn,^ and then FOOl 
will call FOOAOOOn each time it must use its functional argument. 


po 

except when they are compiled open, as is the case with most of the mapping 
functions. 


24 nlsetq and ersetq expressions also compile using gensym functions. As a 
result, a go or return cannot be used inside of a compiled nlsetq or ersetq 
if the corresponding prog is outside, i.e. above the nlsetq or ersetq . 


or an appropriate funarg expression, see Section 11. 
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Note that a considerable savings in time could be achieved by defining FOOl as 
a computed macro of the form: 

(Z (LIST (SUBST (CAOADR Z) (QUOTE FN) der) (CAR Z))) 

where def is the definition of FOOl as a function of just its first argument 
and FN is the name used for its functional argument in its definition. The 
expression compiled contains what was previously the functional argument to 
FOOl, as an open LAMBDA expression. Thus you save not only the function call 
to FOOl, but also each of the function calls to its functional argument. For 
example, if FOOl operates on a list of length ten, eleven function calls will 
be saved. Of course, this savings in time cost space, and the user must decide 
which is more important. 


18.9 Block Compiling 

Block compiling provides a way of compiling several functions into a single 
block. Function calls between the component functions of the block are very 
fast, and the price of using a free variable, namely the time required to look 
up its value on the stack, is paid only once - when the block is entered. 
Thus, compiling a block consisting of just a single recursive function may be 
yield great savings if the function calls itself many times, e.g., equal . copy . 
and count are block compiled in INTERLISP. 

The output of a block Compilation is a single, usually large, function. This 
function looks like any other compiled function; it can be broken, advised, 
. printstructured, etc. Calls from within the block to functions outside of the 
block look like regulär function calls, except that they are usually linked 
(described below). A block can be entered via several different functions. 
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called entries. These must be specified when the block is compiled. 26 For 
example, the error block has three entries, errorx . Interrupt , and fault1 . 
Similarly, the Compiler block has nine entries. 


Specvars 


One savings in block compiled functions results from not having to störe on the 
stack the names of the variables bound within the block, since the block 
functions all 'know* where the variables are stored. However, if a variable 
bound in a block is to be referenced outside the block, it must be included on 
the list specvars . For example, helpclock is on specvars . since it is rebound 
inside of lispxblock and editblock . but the error functions must be able to 
obtain its latest value. 


Localfreevars 


Localfreevars is a feature designed for those variables which are used freely 
by one or more of the block functions, but which are always bound (by some 
other block function) before they are referenced, i.e. their free values above 
the block are never used. Normally, when a block is entered, all variables 
which are used freely by any function in the block are looked up and pointers 
to the bindings are stored on the stack. When any of these variables are 


Actually the block is entered the same as every other function, i.e., at 
the top. However, the entry functions call the mein block with their name 
as one of its arguments, and the block dispatches on the name, and jumps to 
the portion of the block corresponding to that entry point. The effect is 
thus the same as though ther® were several different entry points. 


27 

Arguments to the block that are referenced freely outside the block must 
also be SPECVARS if they are reset within the block, or eise the new value 
will not be obtained. 
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rebound in the block, the old pointer is savod and a pointer to the new binding 
is stored in the original stack Position. It frequently happens that variables 
used freely within a block are in fact always bound within the block prior to 
the free reference. The unnecessary lookup of the value of the free variable 
at the time of entry to the block can be avoided by putting the variable name 
on the list localfreevars . If a variable is on localfreevars , its value will 
not be looked up at the time of entry. When the variable is bound, the value 
will be stored in the proper stack Position. Should the variable in fact be 
referenced before it is bound, the program will still work correctly. 
Invisible to the user, a rather time-comsuming process will take place. The 
reference will cause a trap which will invoke Code to determine which variable 
was referenced and look up the value. Future references to that variable 
during this call to the block will be, normal, i.e. will not cause a trap. 

trapcount[x] is a function to monitor the performance of block 

compiled code with respect to localfreevars . If x 
is NIL, trapcount returns the cumulative number of 
traps caused by localfreevars that were not bound 
before use. If x is a number, the trapcount is 
reset to that number. 

evci is another Compiler artifice for free variables references. (EVQ X) has 
the effect of (EVAL (QUOTE X)) without the call to eval (if X is an atom). evg 
is intended primarily for use in conjunction with localfreevars . For example, 
suppose a block consists of three functions, F001, F002, and F003, with F001 
and F002 being entries, and F003 using X freely, where X is bound in F001, but 
not in F002, i.e. F001 rebinds X, but when entered via F002, the user intends X 
to be used freely, and its higher value obtained. If X is on localfreevars . 
thon each time the block is entered via F002, a trap will occur when F003 first 
references X. In Order to avoid this, the user can insert (EVQ X) in FOO2. 
This will circumvent the trap by explicitly invoking the routine that searches 
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back up the stack for the last binding of X. Thus, when used with 
localfreevars , evq does two things: lt returns the value of its argument, and 
also Stores that value in the binding slot for the variable so that no future 
references to that variable (in this call) will cause traps. Since the time 
consumed by the trap can greatly exceed the time required for a variable 
lookup, using eva in these situations can result in a considerable savings. 

Retfns 

Another savings in block Compilation arises from omitting most of the 
Information on the stack about internal calls between functions in the block. 
However, if a function's name must be visible on the stack, e.g., if the 
function is to be returned from retfrom . it must be included on the list 
retfns . 

Blkapplyfns 

Normally, a call to apply from inside a block would be the same as a call to 
any other function outside of the block. If the first argument to apply turned 
out to be one of the entries to the block, the block would have to be 
reentered. blkapplyfns enables a program to compute the name of a function in 
the block to be called next, without the overhead of leaving the block and 
reentering it. This is done by including on the list blkapplyfns those 
functions which will be called in this fashion, and by using blkapply in place 
of apply , and blkapply* in place of apply* . For example, the calls to the 
functions handling RI, RO, LI, LO, BI, and BO in the editor are handled this 
way- If blkapply or blkapply* is given a function not on blkapplyfns . the 
effect is the same as a call to apply or apply* and no error is generated. 
Note however, that blkapplyfns must be set at compile time, not run time, and 
furthermore, that all functions on blkapplyfns must be in the block, or an 
error is generated (at compile time), NOT ON BLKFNS. 
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Blklibrary 


Compiling a function open via a macro provides a way of eliminating a function 
call. For block compiling, the same effect can be achieved by including the 
function in the block. A further advantage is that the code for this function 
will appear only once in the block, whereas when a function is compiled open, 
its code appears at each place where it is called. 

The block library feature provides a convenient way of including functions in a 
block. It is just a convenience since the user can always achieve the same 
effect by specifying the function(s) in question as one of the block functions, 
provided it has an expr definition at compile time. The block library feature 
simply eliminates the bürden of supplying this definition. 


To use the block library feature, place the names of the functions of interest 
on the list blklibrary , and their EXPR definition on the property list of the 
function under the property BLKLIBRARYDEF. When the block Compiler compiles a 
form, it first check to see if the function being called is One of the block 
functions. If not, and the function is on blklibrary . its definition is 
obtained frora the property value of BLKLIBRARYOEF, and it is automatically 
included as part of the block. The functions assoc , equal , getp , last , length . 
lispxmatch, memb, nconcl , nleft, nth, and /rplnode already have BLKLIBRARYOEF 
properties. 

18.10 Linked Function Calls 

Conventional (non-linked) function calls from a compiled function go through 
the function definition cell, i.e., the definition of the called function is 
obtained from its function definition cell at call time. Thus, when the user 
breaks, advises, or otherwise modifies the definition of the function FOO, 
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every functlon that subsequently calls it instead calls the modified function. 
For calls frora the System functions, thls is clearly not a feature. For 
example, the user may wish to break on baslc functions such as print , eval. 
rplaca , etc., which are used by the break package. In other words, we would 
like to guarantee that the System packages will survive through user 
modification (or destruction) of basic functions (unless the user specifically 
requests that the System packages also be modified). This protection is 
achieved by linked function calls. 

For linked function calls, the definition of the called function is obtained at 
link time, i.e., when the calling function is defined, and stored in the 
literal table of the calling function. At c all time, this definition is 
retrieved from where it was stored in the literal table, not from the function 
definition cell of the called function as it is for non-linked calls. These 
two different types of calls are illustrated in Figure 18-1. 

Note that while function calls from block compiled functions are usually 
linked, and those from standardly compiled functions are usually non-linked, 
linking function calls and blockcompiling are independent features of the 
INTERLISP Compiler, i.e., linked function calls are possible, and frequently 
employed, from standardly compiled functions. 
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Note that normal function calls requlre only the called function's name in the 
literals of the compiled code, whereas a linked function call uses two literals 
and hence produces slightly largor compiled functions. 

The compiler's decision as to whether to link a particular function call is 
deterroined by the variables linkfns and nolinkfns as follows: 

(1) If the function appears on nolinkfns . the call is not linked; 

(2) If block compiling and the function is one of the block functions. the 

call is internal as described earlier; 

(3) If the function appears on linkfns . the call is linked; 

(4) If nolinkfnssT, the call is not linked; 

(5) If block compiling, the call is linked; 

(6) If linkfns sT, the call is linked; 

(7) Otherwise the call is not linked. 

Note that (1) takes precedence over (2), i.e., if a function appears on 
nolinkfns . the call to it is not linked, even if it is one of the functions in 
the block, i.e., the call will go outside of the block. 

Nolinkfns is initialized to various System functions such as errorset , breakl , 
etc. Linkfns is initialized fco NIL. Thus if the user does not specify 
otherwise, all calls from a block compiled function (except for those to 
functions on nolinkfns ) will be linked; all calls from standardly compiled 
functions will not be linked. However, when compiling System functions such as 
help . error , arglist , fntyp , breakl . et al, linkfns is set to T so that even 
though these functions are not block compiled, all of their calls will be 
linked. 

If a function is not defined at link time, i.e., when an attempt is made to 
link to it, a message is printed, fnl NOT DEFINED WHEN LINK TRIED FROM fn2. 



When the function is later defined, the link can be completed by relinking the 
calling function using relink described below. Otherwise, if a function is run 
which attempts a linked call that was not completed, faultapply is called. If 
the function is now defined, i.e., it was defined at some point after the 
attempt was made to link to it, faultapply will quietly perform the link and 
continue the call. Otherwise, it will print U.O.F. and proceed as described in 
Section 16. 

Linked function calls are printed on the backtrace as ;fn; where fn is the name 
of the function. Note that this name does not actually appear on the stack, 
and that stkpos, retfrom , and the rest of the pushdown list functions (Section 
12) will not be able to find it. Functions which must be visible on the stack 
should not be linked to, i.e., include them on nolinkfns when compiling a 
function that would otherwise link its calls. 

PJI in tstructure, calls , break on fnl-IN-fnZ and advlse fni-IN-fn2 all work 
correctly for linked functions calls, e.g., break[(FOO IN FIE)], where FOO is 
called from FIE via a linked function call. 


Relinking 

The function relink is available for relinking a compiled function, i.e., 
updating all of its linked cqlls so that they use the definition extant at the 
time of the relink Operation. 

relinktfn] fn is either WORLD, the name of a function, a list 

of functions, or an atom whose value is a list of 
functions. relink performs the corresponding 
relinking operations. relinkCWORLD] is possible 
because laprd maintains on linkedfns a list of all 
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user functions containing any linked calls. 
syslinkedfns is a list of all System functions 
that have any linked calls. relink[WORLD] 
performs both relink[linkedfns] and 
relink[syslinkedfns]. 

The value of relink is fn. 

It is important to stress that linking takes place when a function is defined. 
Thus, if FOO calls FIE via a linked call, and a bug is found in FIE, changing 
FIE is not sufficient; FOO must be relinked. Similarly, if F001, F002, and 
F003 are defined (in that order) in a file, and each call the others via linked 
calls, when a new Version of the file is loaded, F001 will be linked to the old 
FOO2 and F003, since those definitions will be extant at the time it is read 
and defined, Similarly, F002 will link to the new FOOl and old F003. Only 
F003 will link to the new FOOl and F002. The user would have to perform 
relink[FOOFNS] following the load . 

18.11 The Block Compiler 

There are three user level functions for blockcompiling, blockcompile . bcompl , 
and brecompile , corresponding to compile , tcompl . and recompile . All of them 
ultimately call the same low level functions in the Compiler, i.e., there is no 
'blockcompiler' per se. Instead, when blockcompiling, a flag is set to enable 
special treatment for specvars , retfns , blkapplyfns , and for determining 
whether or not to link a function call. Note that all of the previous remarks 
on macros, globalvars, Compiler messages, etc., all apply equally for block 
compiling. Using block declarations described below, the user can intermix in 
a single file functions compiled normally, functions compiled normally with 
linked calls, and block compiled functions. 
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Blockcompile 


blockcompile[blkname ;blkfns ;entries ;f lg] blkfns is a list of the functions 

conprising the block, blkname is the name of the 
block, entries a list of entries to the block, 
e.g., 

•-BLOCKCOMPILE (SUBPRBLOCK (SUBPA1R SUBLIS SUBPR) (SUBPAIR SUBLIS)) 

Each of the entries raust also be on blkfns or an 
error is generated, NOT ON BLKFNS. 25 

If entries is NIL, list[blkname] is used, e.g., 
«-BLOCKCOMPILE(COUNT (COUNT C0UNT1)) 

If blkfns is NIL, list[blknarae] is used, e.g., 
•-BLOCKCOMPILE(EQUAL) 

blockcompile asks the Standard Compiler questions 
and then begins compiling. As with corapile , if 
the compiled code is being written to a file, the 
file is closed unless flg »T. The value of 
blockcompile is a list of the entries, or if 
entriessNIL, the value is blkname . 

The output of a call to blockcompile is one 
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Jf, ° nly one entry is specified, the block name can also be one of the 
jLÜLLns, e.g. BLOCKCOMPILE(FOO (FOO FIE FUM) (FOO)). However, if more than 
entry is specified, an error will be generated, 
BE BOTH AN ENTRY AND THE BLOCK NAME. 8 ’ 


one 
CAN 'T 




function definition for blkname . plus definitions 


for each of the functions on entries if any. 
These entry functions are very short functions 
which immediately call blkname. 


Block Declarations 


Since block compiling a file frequent ly involves giving the Compiler a lot of 
Information about the nature and structure of the Compilation, e.g., block 
functions, entries, specvars, linking, et al, we have implemented a special 
prettydef command to facilitate this commmunication. The user includes in the 
third argument to prettydef a command of the form 

(BLOCKS blockj ... block 2 ... block n ) where each block^ is a block declaration. 
bcompl and brecompile described below are sensitive to these declarations and 
take the appropriate action. 

The form of a block declaration :Ls: 

(blkname blkfn } ... blkfn m (var t . value) ... (var n . value)) 

blkfnj ... blkfn m are the functions in the block and correspond to blkfns in 
the call to blockcompile . The (var . value) expressions indicate the settings 
for variables affecting the Compilation. 

As an example, the value of editblocks is shown below. It consists of three 
block declarations, editblock . editfindblock . and edlt4e. 
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[RPAQQ EDITBLOCKS 

((EDITBLOCK EDITLO EOITL1 UNDOEDITL EDITCOM EDITCOMA EOITCOML 
EDITMAC EDITCOMS EDIT]UNDO UNDOEDITCOM 
UNDOEDITCOM1 EDITSMASH EOITNCONC EDIT1F EDIT2F 
EDITNTH BPNT BPNTO BPNT1 RI RO LI LO BI BO 
EDITDEFAULT ## EDUP EDIT* EOOR EORPT EOLOC EOLOCL 
EDIT: EDITMBD EDITXTR EDITELT EDITCONT EDITSW 
EDITMV EOITTO EOITBELOW EOITRAN TAILP EDITSAVE 
EDITH (ENTRIES EDITLO ## UNDOEDITL) 

(SPECVARS L COM LCFL6 #1 #2 #3 LISPXBUFS 

**COMMENT**FLG PRETTYFLG UNDOLST 
UNDOLST1) 

(RETFNS EDITLO) 

(GLOBALVARS EDITCOMSA EDITCOMSL EDITOPS 
HISTORYCOMS EOITRACEFN) 

(BLKAPPLYFNS RI RO LI LO BI BO EDIT: EDITMBD 
EDITMV EDITXTR) 

(BLKLIBRARY LENGTH NTH LAST) 

(NOLINKFNS EDITRACEFN)) 

(EDITFINDBLOCK EDIT4E EDIT4EI EDITQF EDIT4F EDITFPAT 

EDITFPAT1 EDIT4F1 EDIT4F2 EDIT4F3 EDITSMASH 
EDITFINDP EDITBF EDITBF1 ESUBST 
(ENTRIES EDITQF EDIT4F EDITFPAT EDITFINDP 
EDITBF ESUBST)) 

(EDIT4EBLOCK EDIT4E EDIT4E1 (ENTRIES EDIT4E EDIT4E1] 


Whenever bcom pl or brecompile encounter a block declaraction 20 they rebind 
^ tfns > sßec.vars, localfreevars . globalvars . blklibrary . nolinkfns . and linkfns 
to their top level value, bind blkapplyfns and entries to NIL, and bind blkname 
to the first element of the declaration. They then scan the rest of the 
declaration, gathering up all atoras, and setting car of each nonatomic element 
to cdr of the expression if atoraic, e.g., (LINKFNS . T), or eise to union of 
cdr of the expressions with the current (rebound) value, ^ e-g., 
(GLOBALVARS EDITCOMSA EDITCOMSL). When the declaration is exhausted, the block 
Compiler is called and given blkname . the list of block functions, and entries . 

Note that since all Compiler variables are rebound for each block declaration, 


29 

30 


The BLOCKS command Outputs a DECLARE expression, which is noticed by bcompl 
and brecompile . - E — 


Expressions of the form (var * form) 
the resulting list used 
(GLOBALVARS * MYGLOBALVARS). 


will cause form to be evaluated and 
as described above, e.g. 
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the declaration only has to set ithose variables it wants changed. Furthermore, 
setting a variable in one declaration has no effect on the variable's value for 
another declaration. 

After finishing all blocks, bcompl and brecompile treat any functions in the 
file that did not appear in a block declaration in the same way as do tcoiwpl 
and recompile . If the user wishes a function compiled separately as well as in 
a block, or if he wishes to compile some functions (not blockcompile), with 
some Compiler variables changed, he can use a special pseudo-block declaration 
of the form (NIL fnj ... fn m (var^ . value) ... (var n . value)) which means 
compile fnj ... fn m after first setting var t ... var n as described above. For 
example, (NIL CGETD FNTYP ARGLIST NARGS NC0NC1 GENSYM (LINKFNS . T)) 
appearing as a 'block declaration' will cause the six indicated functions to be 
compiled while linkfns-T so that all of their calls will be linked (except for 
those functions on nolinkfns). 


bcompl 

bcompl[files;cfile] files is a list of prettydefed files. (If atomic, 

list[files] is used.) bcompl differs from tcompl 
in that it compiles all of the files at once, 
instead of one at a time. This is to permit one 
block to contain functions in several files.*** 
Output is to cfile if given, otherwise to a file 
whose name is car[files] suffixed with COM 32 e.g., 
bcompl[(EDIT WEDIT)] produces one file, EOIT.COM. 
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Thus if you have several files to be bcompled separately, you must make 
several calls to bcompl . 


32 


See footnote on page 18.11. 
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bcompl asks the Standard Compiler questions, 
except for OUTPUT FILE: then reads in all of the 
files, adds all nlambda functions in DEFINEQ's to 
fllama, nlaml , lambdas to lams , evaluates OECLARE 
expressions, and then processes the block 
declarations as described above. Finally, it 
corapiles any functions not mentioned in one of the 
declarations and writes out all other expressions. 

The value of bcompl is the output file. 

Note that it is permissible to tcompl files set up 
T° r bcompl ; the block declarations will simply 
have no effect. Similarly, you can bcompl a file 
that does not contain any block declarations and 
the result will be the same as having tcompl ed it. 


Brecompile 

The purpose of brecompile is to allow the user to update a compiled file 
without requiring an entire bcompl . As with recompile , the usual way to call 
bEecompile involves specifying just its first argument, the symbolic file(s), 
as in the sequence of loading file(s) to PROP, editing selected definitions, 
makefiling, and then calling brecompile . In this case, brecompile recompiles 
all exprs and works from in-core definitions. 34 Note that this assumes that 
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See footnote on page 18.9. 


34 


Note that if any of the functions in a block are recompiled, the entire 
block is recompiled. 




each symbolic file was produced by makefile . i.e., the arguments to prettydef 
wero fileFNS, file, and fileVARS, since brecompile uses fileFNS and file VARS 
to drive its Operation. The rest of the discussion below is for various 
nonstandard usages. 

brecompile[files;cfile;fns;coreflg] files is a list of symbolic files (if 

atomic, list[files] is used). cfile is the 
compiled file corresponding to bcompl[files] or a 
previous brecompile . i.e., it contains compiled 
definitions that may be copied. 

fns is a list of those functions to be recompiled. 
i.e., they have been changed (or defined for the 
first time) since cfile was made. If fns«T, all 
functions defined as exprs (after unbreaking and 
unadvising) are recompiled. 

brecompile asks the Standard Compiler questions 
except for OUTPUT FILE: As with bcompl , output 
automatically goes to file.COM, where file is the 
first file in files . 

If coreflg »NIL. brecompile proceeds to read in 
each file, collecting all definitions while making 
the appropriate additions to nlama , nlaml , and 
lams . evaluating OECLARE expressions, 33 and 
collecting all block declarations, and other 
expressions which will later be copied to the 
output file. 
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See footnote on page 18.9. 
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If coreflg sT. brecompile coroputes the block 
declarations from the fileVARS for each flle in 
flies. Similarly, fileFNS and fileVARS are used 
to determine what actually appears on the files. 
The only access to the files is to obtain the date 
for each file so that it can be written onto the 
output file. 

brecompile next processes each block declaration. 
If no functions in the block have been changed, 
the block is copied from cfile as with recompile . 
Otherwise, the entire block is recompiled. For 
pseudo-block declarations of the form 
(NIL fnl ...), all variable assignments are made, 
but only those functions so indicated by fns are 
recompiled. 

As with recompile , the Order in which functions 
appear on the file must not be changed unless all 
of the functions that are moved also recompiled. 

After completing the block declarations, 
brecompile processes all functions not appearing 
in a declaration, recompiling only those dictated 
by fns, and copying the compiled definitions of 
the remaining from cfile . 

Finally, brecompile writes the portion of file.COM 
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See footnote on page 18.11. 
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corresponding to the non-OEFINEQ expressions. If 
coreflg =NIL; brecompile simply writes out those 
expressions which it had previously collected. 
Otherwise, it uses fileVARS to determine what is 
on each file and writes the corresponding 
expressions on to the output file. 

The value of brecompile is the output file. 

If cfile « NIL, file.COM is used. 37 In addition, if 
fns. and coreflg are both NIL, they are set to T. 
This is the Standard usage desscribed earlier. 


18.12 Compiler Structure 

The Compiler has two Principal passes. The first compiles its input *into a 
macro assembly language called LAP. The second pass expands the LAP code, 
producing (numerical) machine language instructions. The output of the second 
pass is written on a file and/or stored in binary program space. 

Input to the Compiler is usually a Standard INTERLISP S-expression function 
definition. However, machine language coding can be included within a function 
by the use of one or more assemble forms. In other words, assemble allows the 
user to write protions of a function in LAP. Note that assemble is only a 
Compiler tfirective; it has no independent definition. Therefore, functions 
which use assemble must be compiied in order to run. 
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See footnote on page 18.11. 




18.13 Assemble 


The formet of assemble is similar to that of PROG: (ASSEMBLE V Sj S ? . . . S N ). 
V is a list of variables to be bound during the first pass of the Compilation, 
not during the running of the object code. The assemble Statements Sj ... 
are compiled sequentially, each resulting in one or more instructions of object 
code. When run, the value of the assemble 'form' is the contents of AC1 at the 
end of the execution of the assemble instructions. Note that assemble may 
appear anywhere in an INTERLISP function. For example, one may write: 

(IGREATERP (IQUOTIENT (LOC (ASSEMBLE NIL 

(MOVEI 1 , -5) 

(JSYS 13))) 

1000) 

4) 

to test if Job runtime exceeds 4 seconds. 


Assemble Statements 

If an assemble Statement is an atom, it is treated as a label identifying the 
location of the next Statement that will be assembled. 33 Such labels defined in 
an üsseroble form are like prog labels in that they may be referenced from the 
current and lower level nested progs or assembles . 

If an assemble Statement is not an atom, car of the Statement must be an atom 
and one of the following: (1) a number; (2) a LAP op-def (i.e. has a property 
value OPD); (3) an assembler macro (i.e. has a property value AMAC); or (4) one 
of the special assemble instructions given below, e.g. C, CQ, etc. Anything 
eise will cause the error message OPCODE? - ASSEMBLE. 


A label can be the last thing in an assemble form, in which case it labels 
the location of the first instruction after the assemble form. 
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The types of assemble Statements are described here in the order of priority 
used in the assemble processor; that is, if an atom has both properties OPD and 
AMAC, the OPD will be used. Similarly a special assemble Instruction roay be 
redefined via an AMAC. The following descriptions are of the first pass 
Processing of assemble Statements. The second pass Processing is described in 
the section on LAP, page 18.40. 

(1) numbers - If car of an assemble Statement is a number, the Statement is not 

processed in the first pass. (See page 18.40.) 

(2) LAP op-defs - The property OPD is used for two different types of op-defs: 

PDP-10 machine instructions, and LAP macros. If the OPD 
definition (i.e. the property value) is a number, the op-def is a 
machine Instruction. When a machine Instruction, e.g. HRRZ, 
appears as car of an assemble Statement, the Statement is not 
processed during the first pass but is passed to LAP. The forms 
and Processing of machine instructions by LAP are described on 
page 18.41. 

If the OPD definition is not a number, then the op-def is a LAP 
macro. When a LAP macro is encountered in an assemble Statement, 
its arguments are evaluated and Processing of the Statement with 
evaluated arguments is left for the second pass and LAP. For 
example, LDV is a LAP macro, and (LDV (QUOTE X) SP) in assemble 
code results in (LDV X N) in the LAP code, where N is the value 
of SP. 

The form and Processing of LAP macros are described on page 
18.43. 
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(3) assemble macros - If car of an assemble Statement has a property AMAC, 
the Statement is an assemble macro call. There are two types of 
assemble macros: lambda and Substitution. If car of the macro 
definition is the atom LAMBDA, the definition will be applied to 
the arguments of the call and the resulting list of Statements 
will be assembled. For example, repeat could be a LAMBDA macro 
with two arguments, n and m, which expands into n occurrences of 
m, e.g. (REPEAT 3 (CAR1)) expands to ((CAR1) (CAR1) (CAR1)). The 
definition (i.e. value of property AMAC) for repeat is: 

(LAMBDA (NM) 

(PROG (YY) 

A (COND 

((ILESSP N 1) 

(RETURN (CAR YY))) 

(T (SETQ YY (TCONC YY M)) 

(SETQ N (SUB1 N)) 

(GOA))))) 

If car of the macro definition is not the atom LAMBDA, it must be 
a list of dumray Symbols. The arguments of the macro call will be 
substituted for corresponding appearances of the dummy Symbols in 
cdr of the definition, and the resulting list of Statements will 
be assembled. For example, ubox could be a Substitution macro 
which takes one argument, a number, and expands into instructions 
to compile the unboxed value of this number and put the result on 
the number stack. 


The definition of UBOX is: 


((E) 

(CQ (VAG E)) 
(PUSH NP , 1)) 
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Note that assemble macros produce a list of Statements to be assembled, 
compiler «nacros produce a single expression. An assemble macro 
wnich computes a list of Statements begins with LAMBDA and may be either 
spread or no-spread. The analogous Compiler macro begins with an atom, 
(i.e. is always no-spread) and the LAMBDA is understood. 
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Thus (UBOX (ADD1 X)) expands to: 


((CQ (VAG (A001 X))) 
(PUSH NP , 1)) 


(4) special assemble Statements - 

(CQ Sj Sg •.. J CQ (compile quote) takes any number of arguments 

which are assumed to be regulär 5-expressions and 

are compiled in the normal way. E.g. 

(CQ (COND ((NULL V) (SETQ Y 1))) 

(SETO X (IPLUS Y Z))) 

Note: to avoid confusion, it is best to have as much of a function as possible 
compiled in the normal way, e.g. to load the value of x to AC1, (CQ X) is 
preferred to (LDV (QUOTE X) SP). 


CC Sj s^ • • • ) 


(E 8j 6g • . • ) 


(SETQ var) 


C (compile) takes any number of arguments which 
are first evaluated, then compiled in the usual 
way. Both C and CQ permit the inclusion of 
regulär Compilation within an assemble form. 

E (avaluate) takes any number of arguments which 
are evaluated in sequence. For example, (PSTEP) 
calis a function which increments the Compiler 
variable SP. 

Compiles code to set the variable var to the 
contents of AC1. 


(FASTCALL fn) Compiles code to call fn. Fn must be one of the 

SUBR's that expects its arguments in the 
accumulators, and not on the push-down stack. 
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Currently, these are cons . and the boxing and 
unboxing routines. 4 ^ 

Example: 

(CQ X) 

(LDV2 (QUOTE Y) SP 2) 

(FASTCALL CONS) 

and consfx.y] will be in AC1. 

* is used to indicate a comment; the Statement is 
ignored. 


COREVALS 


Thors are several locations in the basic mach ine code of INTERLISP which may be 
referenced from compiled code. The current value of each location is stored on 
the property list under the property COREVAL. 41 Since these locations may 
change in different reassemblies of INTERLISP, they are written symbolically on 
compiled code files, i.e. the name of the corresponding COREVAL is written, not 
its value. Some of the COREVALs used frequently in assemble are: 


CONS 

LIST 

KT 

KNIL 

MKN 

MKFN 

IUNBOX 


entry to function CONS 
entry to function LIST 
contains (pointer to) atom f 
contains (pointer to) atom NIL 
routine to box an integer 
routine to box floating number 
routine to unbox an integer 


® ls ° b ° c ?; ied with f«*call by placing its arguments on the 
pushdown stack, and the number of arguments in AC1. 

The value of cgrevals is a list of all atoms with COREVAL properties. 
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FUNBOX 


routine to unbox floating number 


The Index registers used for the push-down stack pointers are also included as 
COREVALS. These are not expected to change, and are not stored symbolically on 
compiled code files; however, they should be referenced symbolically in 
assemble code. They are: 

PP Parameter stack 

CP control stack 

NP number stack 

18.14 LAP 

LAP (for LISP assembly Processor) expands the output of the first pass of 
Compilation to produce numerical machine instructions. 

LAP Statements 


If a LAP Statement is an atom, it is treated as a label identifying the 
location of the next Statement to be processed. If a LAP Statement is not an 
atom, car of it must be an atom and one of the following: (1) a number; (2) a 
machine Instruction; or (3) a LAP macro. 

(1) numbers - If car of a LAP Statement is a number, a location containing the 
number is produced in the object code. 

e.g. (ADD 1 , A (1)) 

A (1) 

(4) 

(9) 
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Statements of this type are processed like machine instructions, 
with the initial number serving as a 36-bit op-code. 

(E) Nachine Instructions - If car of a LAP Statement has a numeric value for 
the property OPD,^ the Statement is a machine Instruction. The 
general form of a machine Instruction is: 

(opcode ac , @ address (Index)) 

Opcode is any PDP-10 Instruction mnemonic or INTERLISP UUO , 43 

Ac, the accumulator field, is optional. However, if present, it 
must be followed by a comma. Ac is either a number or an atom 
with a COREVAL property. The low order 4 bits of the number or 
COREVAL are OR'd to the AC field of the instruction. 

0 may be used anywhere ln the instruction to specify indirect 
addressing (bit 13 set in the instruction) e.g. (HRRZ 1 , @ ' V). 


Address is the address field which may be any of the following: 

= constant Reference to an unboxed constant. A location 
containing the unboxed constant will be created in 
a region at the end of the function, and the 
address of the location containing the constant is 


The value is an 18 bit quantity (rather than 9), since some UUO's also use 
the AC field of the instruction. 

The TENEX JSYS's are not defined, that is, one must write (JSYS 107) 
instead of (KFORK). 
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' pointer 


* 


literal atora 


placed in the address field of the current 
Instruction. The constant may be a number e.g. 
(CAME 1 , *> 3596); an atom with a property COREVAL 
(in which case the constant is the value of the 
property. at LOAD time); any other atom which is 
treated as a label (the constant is then the 
address of the labeled location) e.g. 
(MOVE 1 , * TABLE) is equivalent to 
(MOVEI 1 .TABLE); or an expression whose value is 
a number. 

The address is a reference to a INTERLISP pointer, 
e.g. a list, number, string, etc. A location 
containing the pointer is assembled at the end of 
the function, and the current Instruction will 
have the address of this location. E.g. 
(HRRZ 1 , ' "IS NOT DEFINED") 

(HRiRZ 1 , ' (NOT FOUND)) 

Specifies the current location in the compiled 
function; e.g. (JRST * 2) has the same effect as 
(SK1PA). 

If the atom has a property COREVAL, it is a 
reference to a System location, e.g. 
(SK!PA 1 , KNIL), and the address used is the 
value of the coreval . Otherwise the atom is a 
label referencing a location in the LAP code, e.g. 
(JRST A). 


number 


The number is the address; e.g. 



(MOVSI 1 , 400000Q) 
(HLRZ 2 , 1 (1)) 


list The form is evaluated, and its value is the 
address. 

Anything eise in the address field causes an error message, e.g. 
(SKIPA 1 , KNILL) - LAPERROR. A number may follow the address 
field and will be added to it, e.g. (JRST A 2). 

Index is denoted by a list following the address field, i.e. the 
address field must be present if an index field is to be used. 
The index (car of the list) must be either a number, or an atom 
with a property COREVAL, e.g. (HRRZ 1 , 0 (1)) or (ANDM 1 , - 
1 (NP)) 


(3) LAP macros - If car of a LAP Statement is the name of a LAP macro, i.e. 

has the property OPD, the Statement is a macro call. The 

arguments of the call follow the macro name: e.g. (LQ2 FIE 3). 

LAP macro calls comprise most of the output of the first pass of 
the Compiler, and may also be used in assemble . The definitions 
of these macros are stored on the property list under the 
property OPD, and like assembler macros, may be either lambda or 
Substitution macros. In the first case, the macro definition is 
applied to the arguments of the call;** in the second case, the 
arguments of the call are substituted for occurrences of the 


44 


The arguments were already evaluated in the first pass, see page 18.36. 



dummy symbols in the definition. In both cases, the resulting 
list of Statements is again processed, with macro expansion 
continuing tili the level of machine instructions is reached. 

Some examples of LAP macros are shown in Figure 18-Z. 


18.44 



(DEFLI5T(QU0TE( 

(SVN ((N P) 

(MOVE 1 , • N) 

(HRLM 1 , P (PP)))) 

(SVB ((N) 

(HRL 1 , • N) 

(PUSH PP , 1))) 

(LO ((X) 

(HRRZ 1 , • X))) 

(LQ2 ((X AC) 

(HRRZ AC , ' X))) 

(LDV ((A SP) 

(HRRZ 1 , (VREF A SP)))) 
(STV ((A SP) 

(HRRM 1 , (VREF A SP)))) 

(LDV2 ((A SP AC) 

(HRRZ AC , (VREF A SP)))) 
(LOF ((A SP) 

(HRRZ 1 f (FREF A SP)))) 
(STF ((A SP) 

(HRRM 1 , (FREF A SP)))) 
(LDF2 ((A SP) 

(HRRZ 2 , (FREF A SP)))) 
(CAR1 (NIL 

(HRRZ 1 , 0 (1)))) 

(COR1 (NIL 

(HLRZ 1 , 0 (1)))) 

(CARQ ((V) 

(HRRZ 1 , 0 • V))) 

(CARQ2 ((V AC) 

(HRRZ AC , 0 ' V))) 

(CAR2 ((AC) 

(HRRZ AC , 0 (AC)))) 

(RPQ ((V) 

(HRRM 1 , 0 ' V) 

(CLL ((NAM N) 

(CCALL N , ' NAM))) 

(LCLL ((NAM N) 

(LNCALL N , (MKLCL NAM)))) 
(STE <(TY) 

(PSTE1 TY))) 

(STN ((TY) 

(PSTN1 TY))) 

(RET (NIL 

(POPJ CP ,) 

(PUSHP (NIL (PUSH PP , 1))) 

(PUSHQ ((X) 

(PUSH PP , ' X))) 

))(QUOTE OPD)) 


(* STORE VARIABLE NAME) 

(* STORE VARIABLE NAME AND VALUE) 

(* LOAD QUOTE TO AC1) 

(* LOAD QUOTE TO AC) 

(* LOAD LOCAL VARIABLE TO AC1) 

(* SET LOCAL VARIABLE FROM AC1) 

(* LOAD LOCAL VARIABLE TO AC) 

(* LOAD FREE VARIABLE TO AC1) 

(* SET FREE VARIABLE FROM AC1) 

(* LOAD FREE VARIABLE TO AC) 

(* CAR OF AC1 TO AC1) 

(* CDR OF AC1 TO AC1) 

(* CAR QUOTE) 

(* CAR QUOTE TO AC) 

(* CAR OF AC TO AC) 

(« RPLACA QUOTE) 

(* CALL FN WITH N ARGS GIVEN) 

(* LINKED CALL WITH N ARGS) 

(* SKIP IF TYPE EQUAL) 

(* SKIP IF TYPE NOT EQUAL) 

(* RETURN FROM FN) 

(* PUSH QUOTE) 


Figure 18-2 

Examples of LAP Macros 



18.15 Using Assemble 


In order to use assemble , it is helpful to know the following things about how 
compiled code 1s run. All variable bindings and temporary values are stored on 
the Parameter pushdown stack. When a compiled function is entered, the 
Parameter pushdown list contains, in ascending order of address: 

1. bindings of arguments t;o the function, where each binding occupies one 
word on the stack with the variable name in the left half and the 
value in the right half. 

2. pointers. to the most irecent bindings of free variables used in the 
function. 

The Parameter push-down list pointer, index register PP, points to the last 
free variable pointer on the stack. 

Temporary values, PROG and LAHBOA bindings, and the arguments to functions 
about to be called, are pushed on the stack following the free variable 
pointers. The Compiler uses the value of the variable SP to keep track of the 
number of stack positions in use beyond the last free variable pointer, so that 
it knows where to find the arguments and free variable pointers. The function 
PSTEP adds 1 to SP, and PSTEPN(N) adds N to SP (N can be positive or negative). 

The parameter stack should only be used for storing pointers. In addition, 
anything in the left half of a word on the stack is assumed to be a variable 
name (see Section 12). To störe unboxed numbers, use the number stack, NP. 
Numbers may be PUSH’ed and POP'ed on the number stack. 
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18.16 Miscellaneous 


The value of a function 1s always returned in AC1. Therefore, the pseudo- 
function, ac, is available for obtaining the current contents of AC1. For 
example (CQ (F00 (AC))) compiles a call to F00 with the current contents of ACi 
as argument, and is equivalent to: 

(PUSHP) 

(E (PSTEP)) 

(CLL (QUOTE FOO) 1) 

(E (PSTEPN -1)) 

In using ac, be sure that it appears as the first argument to be evaluated in 
the expression. For example: (CQ (IPLUS (LOC (AC)) 2)) 


* 


ft 


* 


There are several ways to reference the values of variables in assemble code. 
For example: 


to put value of X in ACI: (CQ X) 

to put value of X in AC3: (L0V2 (QUOTE X) SP 3) 

to set X to contents of ACI: (5ETQ X) 


to set X to contents of AC2: 

(E (STORIN (LIST (QUOTE HRRM) 2 (QUOTE ,) 
(LIST (VARCOMP (QUOTE X)) 
(QUOTE X) 

SP)))) 


to box and unbox a number: 


(CQ (LOC (AC))) 
(FASTCALL MKN) 
(FASTCALL MKFN) 
(CQ (VAG X)) 
(FASTCALL IUNBOX) 
(FASTCALL FUNBOX) 


box contents of ACI 
box contents of ACI 
floating box contents of ACI 
unboxed value of X to ACI 
unbox contents of ACI 
floating unbox of ACI 
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To call a functlon directly, the arguments must be pushed on the Parameter 
stack, and SP must be updated, and then the function called: e.g. 


(CQ (CAR X)) 

(PUSHP) 

(E (PSTEP)) 

(PUSHQ 3.14) 

(E (PSTEP)) 

(CLL (QUOTE FUM) 2) 
(E (PSTEPN -2)) 


and is equivalent to: 


(* stack first argument) 


(* stack second argument) 

(* call FUM with 2 arguments) 
(* adjust stack count) 


(CQ (FUM (CAR X) 3.14)) 


18.17 Compiler Printout and Error Messages 

For each function compiled, whether from tcompl . recompile . or compile , the 
Compiler prints: 

(fn COMPILING) 

(fn (arg t ... arg n ) (free^ ... free n )) 

The first message is printed when the Compilation of fn begins. The second 
message is printed at the beginning of the second pass of the Compilation of 
fn. (arg t ... arg n ) is the list of arguments to fn, and (freej ... free n ) the 
list of free variables referenced or set in fn.^® The appearance of non¬ 
variables, e.g. function names, words from a comment, etc. in (free* ... free ) 

1 n 

is a good indication of parenthesis errors. 

If the compilation of fn causes the generation of one or more gensym functions 
(see page 18.16), Compiler messages will be printed for these functions between 
the first message and the second message for fn, e.g. 
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Does not include variables on globalvars . see page 18.6. 
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(FOO COMPILING) 

(F0OA0027 COMPILING) 

(FOOA0027 NIL (X)) 

(FOO (X) NIL) 

The Compiler output for block Compilation is similar to normal Compilation. 
The pass one message, i.e. (fn compiling) is printed for each function in the 
block. Then a second pass message is printed for the entire block. 40 Then both 
messages are printed for each entry to the block. 

In addition to the above output, both recomplle and brecompile print the name 
of each function that is being copied from the old compiled file to the new 
compiled file. The normal Compiler messages are printed for each function that 
is actually compiled. 


Compiler Error Messages 

Messages describing errors in the function being compiled are also printed on 
the teletype. These messages are always preceded by ***«*. Unless otherwise 
indicated below, the Compilation will continue. 

((form) - NON ATOMIC CAR OF FORM) 

If user intended to treat the value of form as a function, he should 

use apply* . form is compiled as if apply* had been used. See Section 

6 . 

(fn - NO LONGER INTERPRETED AS FUNCTIONAL ARGUMENT) 

The Compiler has assumed fn is the name of a function. If the user 


The names of the arguments to the block are generated by suffixing '#’ and 
a number to the block name, e.g. 
(FOOBLOCK (FOOBLOCK#0 FOOBLOCK#!) free-variables). 
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intended to treat the value of fn as a function, he must use apply* . 
See Section 8. 47 

(tg - MULTIPLY DEFINED TAG) 

t£ is a PROG label that is defined more than once in a single PROG. 
The second definition is ignored. 

(tg - UNDEFINEO TAG) 

tfl is a PROG label that is referenced but not defined in a PROG. 

(tg - MULTIPLY OEFINED TAG, ASSEMBLE) 

tfl is a label that is defined more than once in an assemble form. 

(tg - UNDEFINEO TAG, ASSEMBLE) 

tfl is a label that is referenced but not defined in an ASSEMBLE form, 
(tg - MULTIPLY DEFINED TAG, LAP) 

tfl is a label that was encountered twice during the second pass of the 
Compilation. If this error occurs with no indication of a multiply 
defined tag during pass one, the tag is in a LAP macro. 

(tg - UNDEFINEO TAG, LAP) 

tfl is a label that is referenced during the second pass of Compilation 
and is not defined. LAP treats tfl as though it were a coreval, and 
continues the Compilation. 


- - ... - - - - --- 

This message is printed when fn is not defined, and is also a local 
variable of the function being compiled. Note that earlier versions of the 
INTERLISP Compiler did treat fn as a functional argument, and compiled code 
to evaluate it. 
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(fn - USEO AS ARG TO NUMBER FN?) 

The value of a predicate, such as GREATERP or EQ, is used as an 
argument to a function that expects numbers, such as IPLUS. 

(x - IS GLOBAL) 

x is on globalvars . and is also rebound in the function being 
compiled, either as an argument or as a local variable. The error 
message is to alert the user to the fact that other functions will not 
see this binding, since x is always accessed directly through its 
value cell. 

(op - OPCODE? - ASSEMBLE) 

op appears as car of an assemble Statement, and is illegal. See page 
18.35-39 for legal assemble Statements. 


(blknarae - USED BLKAPPLY WHEN NOT APPLICABLE) 

blkapply is used in the block, blkname . but there are no blkapplyfns or 
entries declared for the block. 

(fn - ILLEGAL RETURN) 

return encountered when not in prog . 

(tg - ILLEGAL GO) 

go encountered when not in a prog . 

(fn NOT COMPILEABLE) 

An expr definition for £n could not be found. In this case, no Code 
is produced for fn, and the Compiler proceeds to the next function to 
be compiled, if any. 

fn NOT COMPILEABLE. 
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Same as above excepl; generates an error, thereby aborting all 
Compilation. For example, this error condition occurs if fn is one of 
the functions in a block. 

fn NOT FOUND. 

Occurs when recompile or brecompile try to copy the compiled 
definition of fn from cfile, and cannot find it. See page 18.12. 
Generates an error. 

fn NOT ON BLKFNS. 

fn was specified as an entry to a block, or eise was on blkapplyfns . 
but did not appear on the blkfns . Generates an error. 

fn CAN'T BE BOTH AN ENTRY AND THE BLOCK NAME. 

Generates an error.- 


(fn NOT IN FILE - USING DEFINITION IN CORE) 
on calls to bcompl and brecompile . 
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SECTION 19 1 
ADVISING 


The Operation of advising gives the user a way of modifying a function without 
necessarily knowing how the function Works or even what it does. Advising 
consists of modifying the interface between functions as opposed to modifying 
the function definition itself, as in editing. break , trace , and breakdown . 
are examples of the use of this technique: they each modify user functions by 
placing relevant computations between the function and the rest of the 
Programming environment. 

The Principal advantage of advising. aside from its convenience, is that it 
allows the user to treat functions, his or someone eise's, as "black boxes," 
and to modify them without concern for their contents or details of operations. 
For example, the user could modify sysout to set sysdate to the time and dato 
of creation by advise[SYSOUT;(SETQ SYSDATE (DATE))] 

As with break, advising works equally well on compiled and interpreted 
functions. Similarly, it is possible to effect a modification which only 
operates when a function is called from some other specified function, i.e., to 
modify the interface between two particular functions, instead of the interface 
between one function and the rest of the world. This latter feature is 
especially useful for changing the internal workings of a System function. 
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Advising was developed and implemented by W. Teitelman. 




For example, suppose the user wanted time (Section 21) to print the results of 
bis measurements to the file F00 instead of the teletype. He could accomplish 
this by ADVISE(((PRIN1 PRINT SPACES) IN TIME) BEFORE (SETQQ U F00)) 


Note that advising prinl . print , or spaces directly would have affected all 
calls to these very frequently used function, whereas advising 
((PRIN1 PRINT SPACES) IN TIME) affects just those calls to prinl . print . and 
spaces from time . 

Advice can also be specified to operate after a function has been evaluated. 
The value of the body of the original function can be obtained from the 
variable ly a lue, as with breakl . For example, suppose the user wanted to 
per form some computation following each sys in . e.g. check whether his files 
were up to date. He could then: 

AOVISE(SYSOUT AFTER (CONO ((LISTP iVALUE) --))) 2 

19.1 Implementation of Advising 

The structure of a function after it has been modified several times by advise 
is given in the following diagram: 
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After the sysin , the System will be as it was when 
performed, hence the advice must be to sysout, not sysin. 
for complete discussion of sysout/sysin . 


the sysout was 
See Section 14 
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MODIFIED 

FUNCTION 



FIGURE 19-1 


ADVICE 

BEFORE 


ADVICE 

AFTER 
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The corresponding INTERLISP definition is: 


(LAMBDA arguments (PROG (IVALUE) 

(SETQ !VALUE (PROG NIL 
advicel 

ADVICE 

BEFORE 

advicen 

(RETURN form))) 
advicel 

ADVICE 

AFTER 

advicem 

(RETURN IVALUE))) 


where form is equivalent to the original definition. 3 4 


Note that the structure of a function modified by advise alLows a piece of 
advice to bypass the original definition by using the function RETURN. For 
example, if (COND ((ATOM X) (RETURN Y))) were one of the pieces of advice 
BEFORE a function, and this function was entered with x atomic, ^ would be 
returned as the value of the inner PROG, Ivalue would be set to jr, and control 
passed to the advice, if any, to be executed AFTER the function. If this same 

piece of advice appeared AFTER the function, would be returned as the value 

\ 

of the entire advised function. 


The advice (COND ((ATOM X) (SETQ IVALUE Y))) AFTER the function would have a 
similar effect, but the rest of the advice AFTER the function would still be 
executed. 


Actually, advise uses its own versions of PROG, SETQ, and RETURN, (called 
ADV-PROG, ADV-SETQ, and ADV-RETURN) in order to enable advising these 
functions. 


^ If fn was originally an EXPR, form is the body of the definition, otherwise 
a form using a qensym which :ts defined with the original definition. 
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19.2 Advise Functions 


Advise 


Advise is a function of four arguments: fn, when . where , and what . fn is the 
function to be roodified by advising, what is the modification, or piece of 
advice. when is either BEFORE or AFTER, and indicates whether the advice is to 
operate BEFORE or AFTER the body of the function definition is evaluated. 
where specifles exactly where in the list of advice the new advice is to be 
placed, e.g., FIRST, or (BEFORE PRINT) meaning before the advice containing 
ßrjynt, or (AFTER 3) meaning after the third piece of advice, or even (: TTY:). 
If where is specified, advise first checks to see if it is one of LAST, BOTTOM, 
END, FIRST, or TOP, and operates accordingly. Otherwise, it constructs an 
appropriate edit command and calls the editor to insert the advice at the 
corresponding location. 

Both when and where are optional arguments, in the sense that they can be 
omitted in the call to advise . In other words, advise can be thought of as a 
function of two arguments [fn;what], or a function of three arguments: 
[fn;when;what], or a function of four arguments: [fn;when;where;what]. Note 
that the advice is always the last argument. If when=NIl, BEFORE is used. If 
where =NIL. LAST is used. 

advise[fn;when;where;what] fn is the function to be advised, when =BEFORE or 

AFTER, where specifies where in the advice list 
the advice is to be inserted, and what is the 
piece of advice. 

If fn is of the form (fnl IN fn2), fnl is changed 
fnl-IN-fn2 throughout fn2 , as with break, and 
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thein fnl~IN-fn2 is used in place of fn. 6 

If fn is broken, it is unbroken before advising. 

If fn is not defined, an error is generated, 
NOT A FUNCTION. 

If fn is being advised for the first time, i.e. if 
getp[name,ADVISED]=NIL, a gensym is generated and 
stored on the property list of fn under the 
property ADVISED, and the gensym is defined with 
the original definition of fn. An appropriate 5- 
expression definition is then created for fn . 6 
Finally, fn is added to the (front of) 
advisedfns. 7 

If fn has been advised before, it is moved to the 
front of advisedfns . 

The advice is inserted in fn's definition either 
BEFORE or AFTER the original body function 


on page are are distri buted as shown in the example 


Using private versions of PROG, SETQ, and RETURN, so that these functions 
can also be advised. 


So that unadvise[T] always unadvises the last function advised. See page 

1 7 • O • 
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dependlng on when ß Within that context, its 
Position is determined by where . If where «LAST. 
BOTTOM, END, or NIL, the advice is added following 
all other advice, if any. If where«FIRST or TOP, 
the advice is inserted as the first piece of 
advice, Otherwise, where is treated as a command 
for the editor, a la breakin . e.g. (BEFORE 3), 
(AFTER PRINT) . 

Finally list[when;where;what] is added (by 
addprop ) to the value of property ADVICE on the 
property Hst fn.® Note that this property value 
is a list of the advice in order of calls to 
advise, not necessarily in order of appearance of 
the advice in the definition of fn. 

The value of advise is fn. 

If fn is non-atomic, every function in fn is 
advised with the same values (but copies) for 
when , where . and what . In this case, the value of 
advise is a list of individual functions. 

Note: advised functions can be broken. (However if a function is broken at 
the time it is advised, it is first unbroken.) Similarly, advised functions can 


— m — — — ~ ~ ~ ~ ~ ~ • • - — 

A special case is when«BIND. Here the advice is treated as a list of PROG 
variables to be bound. The variables are nconced to the PROG variable list 
containing !value . See page 19.4. 
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So that a record of all the changes is available for subsequent use in 
readvising, see page 19.8. 



be edited, including their advice. unadvise will still restore the function to 
its unadvised state, but any changes to the body of the definition will 
survive. Since the advice stored on the property list is the same structure as 
the advice inserted in the function, editing of advice can be performed on 
either the function 1 s definition or its property list. 

unadvise[x] is a no-spread NLAMBDA a la unbreak . It takes an 

indefinite number of functions and restores thera 
to their original unadvised state, including 
removing the properties added by advise ,* 0 
unadvise saves on the list advinfolst enough 
Information to allow restoring a function to its 
advised state using readvise . advinfolst and 
readvise thus correspond to brkinfolst and 
rebireak . 

unadvise[] unadvises all functions on 
advisedfns .** It first sets advinfolst to NIL. 

unadvise[T] unadvises the first function of 
advisedfns . i.e., the most recently advised 
function. 

readvise[x] is « no-spread NLAMBDA a la rebreak for restoring 

a function to its advised state without having to 
specify all the advise Information. For each 
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Except if a function also contains the property READVICE (see readvise 
READVICE —- dvise moves the current value of the property ADVICE to 

In reverse order, so that the most recently advised function is unadvised 
last, 
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function on x, readvise retrieves the advise 
Information either from the property READVICE for 
that function, or from advinfolst . and performs 
the corresponding advise operation(s). In 
addition it Stores this Information on the 
property READVICE if not already there. If no 
information is found for a particular function, 
value is (fn - NO ADVICE SAVED). 

readvise[] readvises everything on advinfolst . 

readvise[T] readvises just the first function on 
advinfolst , i.e., the function most recently 
unadvised. 

ihtf difference between advise , unadvise, and readvise versus break , unbreak , 
and rebreak, is that if a function is not rebroken between successive 
unbreakf ]'s, its break information is forgotten. However, once readvised , a 
function's advice is permanently saved on its property Hst (under READVICE); 
subsequent calls to unadvise will not remove it. In fact, calls to unadvise 
update the property READVICE with the current value of the property ADVICE, so 
that the sequence readvise , advise . unadvise causes the augmented advice to 
become permanent. Note that the sequence readvise , advise . readvise removes 
the 'intermediate advice' by restoring the function to its earlier state. 

advisedump[x;flg] Used by prettydef when given a command of the form 

(ADVISE --) or (ADVICE --). flg =T corresponds to 
(ADVISE i.e. advisedump writes both a deflist 
and a readvise . flg=NIL corresponds to (ADVICE -- 
), i.e. only the deflist is written. In either 
case, advisedump copies the advise information to 
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tha property READVICE, thereby 
'parmanent* as described above. 


making 
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SECTION 20 

PRINTSTRUCTURE AND INTERSCOPE 


20.1 Printstructure ^ 

In trylng to work with large programs, a user can lose track of the hierarchy 
which defines hls program structure; it is often convenlent to have a map to 
show which functions are called by each of the functions in a System. If fn is 
the name of the top level function called in your System, then typing in 
printstructure[fn] will cause a tree printout of the function-call structure of 

fn. To illustrate this in more detail, we use the printstructure program 
itself as an example. 


i 


A preliminary Version of printstructure was written by D. 
current form of printstructure was written by W. Teitelman. 


G. 


Bobrow. 


The 
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PRINTSTRUCTURE PRGETD 

PROGSTRUC PRGETD 

PRGSTRC NOTFN PRGETD 

PROGSTRUC 
PRGSTRC1 PRNCONC 
PRGSTRC1 
PRGSTRC 

PRNCONC 

PRGSTRC 

CALLS1 MAKELIST 
NOTFN 

CALLS2 CALLS1 

PRGETD 

TREEPRINT TREEPRINT1 
TREEPRINT 

VARPRINT VARPRINT1 TREEPRINT1 

VARPRINT2 ALLCALLS ALLCALLS1 ALLCALLS1 
TREEPRINT1 


PRINTSTRUCTURE [X.FILE: DONELST,N,TREELST,TREEFNS,LSTEM,X,Y,Z, 

FN, TREE, PRDEPTH, LAST-PRINTSTRUCTURE] 

CALLED BY: 

PRGETD [X.FLG; ; ] 

CALLED BY: PRINTSTRUCTURE,PROGSTRUC,NOTFN,CALLS2 

PROGSTRUC [FN.DEF; N,Y,Z,CALLSFLG,VARSFLG,VARS1,VARS2,D,X; N,DONELST] 
CALLED BY: PRINSTRUCTURE,PRGSTRC 

PRGSTRC [X.HEAD.FLG; Y,TEM,X; VARSFLG,D,NOFNS,CALLSFLG,N,DONELST, 
TREEFNS, NOTRACEFNS, FN, VARS 1, QUOTEFNS ] 

CALLED BY: PROGSTRUC,PRGSTRC1,PRGSTRC 

NOTFN [FN; DEF; NOFNS,YESFNS,FIRSTLOC,LASTLOC] 

CALLED BY: PRGSTRC,CALLS1 

PRGSTRC1 [L.HEAD.FLG; A.B; VARS1.VARS2] 

CALLED BY: PRGSTRC,PRGSTRC1 

PRNCONC [X,Y; ; CALLSFLG] 

CALLED BY: PRGSTRC1»PRGSTRC 

CALLS 1 [ADR,GENFLG,D; LIT.END.Vl,V2,LEFT,OPD,X,X; VARS1,VARS2, 
VARSFLG] 

CALLED BY: PROGSTRUC,CALLS2 

MAKELIST [N,ADR; L; ] 

CALLED BY: CALLS1 


Figura 20-1 




The upper portion of this printout is the usual horizontal Version of a tree. 
This tree is straighforwardly derived from the definitions of the functions: 
ETJiDlst ru c t u r e calls prgetd, progstruc . treeprint . and varprint . progstruc in 
turn calls £rgetd, prgstrc and callsl . prgstrc calls notfn . progstruc . 
Eiigs t r cl , pr n con c, and itself. prgstrcl calls prnconc . itself, and prgstrc . 
Note that a function whose substructure has already been shown is not expanded 
in its second occurrence in the tree. 

The lower portion of the printout contains, for each function, Information 
about the variables it uses, and a list of the functions that call it. For 
example, printstructure is a function of two arguments, x and file . It binds 
eleven variables internally: donelst , n, ... tree .** and uses prdepth and 
la st-printstructure as free variables. It is not called by any of the 
functions in the tree. prgetd is a function of two arguments, x and flfl, binds 
no variables internally, uses no free variables, and is called by 
printst ructure . progstruc . notfn and calls2 . 

Eliil lstructur e calls many other low-level functions such as getd . car , list . 
nconc, etc. in addition to the four functions appearing in the above output. 
The reason these do not appear in the output is that they were defined 
"uninteresting" by the user for the purposes of his analysis. Two functions, 
— rstfn and lüstfn, and two variables, yesfns and nofns are used for this 
purpose. Any function that appears on the list nofns is not of Interest, any 
function appearing on yesfns is of interest. 

Xesfns=T erfectively puts all functions on yesfns . As for functions appearing 
on neither nofns or yesfns, all interpreted functions are deemed interesting, 
but only those compiled functions whose code lies in that portion of bpspace 
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Variables are bound internally by either PROGs LAMBOA-expressions. 




between the two limits established by firstfn and lastfn . For example, the 
above analysis was perforned following firstfn[PRINTSTRUCTURE ] and 
lastfn[ALLCALLSl]. 


Three other variables, notracefns . quotefns , and prdepth also affect the action 
of printstructure . Functions that appear on the list notracefns will appear in 
the tree, assuming they are "interesting" functions as defined above, but their 
definitions will not be analyzed. 

Functions that appear on q uotefns are analyzed, assuming they are 
"interesting," but when they appear as car of a form, the rest of the form, 
i.e., the arguments, is not analyzed. For example, if the function prinq were 
defined as (NLAMBDA (X) (MAPC X (FUNCTION PRIN1))) and included on quotefns , 
and the form (PRINQ (NOW IS THE TIME)) appeared in a function being analyzed, 
B r i n g would appear in the tree and be analyzed but the 'form' (NOW IS THE TIME) 
would be skipped. The initial setting of quotefns is NLAMBDAs, which 
effectively includes all NLAMBDAs (functions with argtype 1 or 3) on quotefns , 
except for those functions which printstructure knows require evaluation, e.g., 
§r. se ig i nlsetq , or, and , etc. The arguments to these functions are always 
analyzed. 

Finally, prdepth is a cutoff depth for analysis. It is initially set to 7. 

PFintstructure has incorporated in it the necessary Information for analyzing 
non-standard forms such as cond . prog and selectq . It is also capable of 
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analyzing compiled or interpreted functions equally well. 3 4 In the case of 
compiled functions, printstructure will automatically analyze any functions 
generated by the Compiler, such as those caused by compiling forms beginning 
with ersetq . nlsetq . or functlon . 

If PJAntsiructure encounters a form beginning with two left parentheses in the 
course of analyzing an interpreted function (other than a COND clause or open 
lambda expression) it notes the presence of a possible parentheses error by the 
abbreviation P.P.E., followed by the function in which the form appears, and 
the form itself, as in the example below. Note also that since printstructure 
detects functions that are not defined, (i.e., atoms appearing as CAR of a 
form), printstructure is a useful tool for debugging. 


except there may be some confusion in analyzing compiled functions, if the 
name of a variable and a function are the same. For this reason, it is 

best to printstructure the interpreted Version of a function whenever 
possible. 


^OILtstnucture knows about CLISP (Section 23) to the extent that if it 
encounters untranslated iterative Statements or IF-THEN-ELSE Statements, it 
will automatically dwimify them before analyzing them. 
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«-PP FOO 


(FOO 

[LAMBDA (X) 

(COND 

((CAR X) (FOOl X)) 

(T ((CONS X (CAR X]) 

FOO 

-PRINTSTRUCTURE(FOO) 

FOO FOOl 

++++++++++++♦+++++++++++++++++++++++++++++++++++++++++++^++++++++++'f+++++++++ 

FOO [X; ; ] 

CALLED BY: 

FOOl IS NOT DEFINED. 

P.P.E. IN FOO - ((CONS X (CAR X))) 


Figure 20-2 


Other Options 

printstructure is a function of three arguments» x, exprf lg , and file . 
printstructure analyzes x, sets the free variable last-printstructure to the 
results of its analysis, prints the result (in the format shown earlier) to 
file (which is opened if necessary and closed afterwards), and returns x as its 
value. Thus if the user did not want to see any output, he could call 
printstructure with file=NIL:, 5 and then process the result himself by using 
last-printstructure . 

printstructure always checks for EXPR properties on the property list of 
functions that are not defined. However, if exprflg =T, printstructure will 
prefer to analyze EXPR definitions whenever possible, i.e. if the function 


6 NIL: is a TENEX output device that acts like a 'bottomless pit*. Note 
that file =NIL (not NIL:) mearis print the tree to primary output file. 
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definition call contalns a compiled definition, and there is also an EXPR 
proporty, the latter will be analyzed. See footnote on page 20.5. 

x can bo NIL, a list, a function, or an atom that evaluates to a list. If x is 
• £E.^ ntstructure does not perform any analysis, but simply prints the result 
of the last analysis, i.e., that stored on last-printstructure . Thus the user 
can effectively redirect the output that is going to the terminal to a disc 
file by aborting the printout, and then performing printstructure[NIL;file]. 

If x is a list, printstructure analyzes the first function on x, and then 
analyzes the second function, unless it was already analyzed, then the third, 
etc., producing however many trees required. Thus, if the user wishes to 
analyze a collection of functions, e.g., brealcfns . he can simply perform 
(PRINTSTRUCTURE BREAKFNS). 

If x is not a list, but is the name of a function, printstructure[x] is the 
same as printstructure[(x)]. Finally, if the value of x is a list of 
functions, printstructure will process that list as described above. 

Note that in the case that x is a list, or evaluates to a list, subsequent 
functions are not separately analyzed if they have been encountcred in the 
analysis of a function appearing earlier on the list. Thus, the ordering of x 
can be important. For example, if both FOO and FIE call FUM, 
printstructure[(FOO FIE FUM)], will produce a tree for FOO containing embedded 
in it the tree for FUM. FUM will not be expanded in the tree for FIE, nor will 
it have a tree of its own. (Of course, if FOO also calls FIE, then FIE will 
not have a tree either.) The Convention of listing FUM can be used to force 
printstriicuire to give FUM a tree of its own. Thus 
printstructure[(FOO FIE (FUM))] will produce three trees, and neither of the 
calls to FUM from FOO or FIE will be expanded in their respective trees. Of 
course, in this example, the same effect could have been achieved by 
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reordering, i.e., printstructure[(FUM F00 FIE)]. However, if FOO, FIE, and 
FUM, all called each other, and yet the user wanted to see three separate 
trees, no ordering would suffice. Instead, the user would have to do 
printstructure[((FOO) (FIE) (FUM))]. 

The result of the analysis of printstructure is in two parts: donelst , a list 
summarizing the argument/variable Information for each function appearing in 
the tree(s), and treelst , a list of the trees. last-printstructure is set to 
constdonelst;treelst]. 

donelst is a list consisting, in alternation, of the functions appearing in any 
tree, and a variable list for that function. car of the variable list is a 
list of variables bound in the function, and cdr is a list of those variables 
used freely in the function. Thus the form of donelst for the earlier example 
would be: 

(PRINTSTRUCTURE ((X FILE DONELST N TREELST TREEFNS L TEM X Y Z 
FN TREE) PRDEPTH LAST-PRINTSTRUCTURE) PRGETD ((X FLG)) 

PROGSTRUC (( FN DEF N Y Z CALLSFLG VARSFLG VARS1 VARS2 D X) 

N DONELST) ... ALLCALLS1 ((FN TR A B))) 

Possible parentheses errors aro indicated on donelst by a non-atomic form 
appearing where a function would normally occur, i.e., in an odd Position. The 
non-atomic form is followed by the name of the function in which the P.P.E. 
occurred. 
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Printstructure Functions 


printstructure[x;exprflg; 


treeprint[x;n] 


varprint[donelst;treelst] 


allcalls[fn;treelst] 


firstfn[fn] 


lastfn[fn] 


file] analyzes x* saves result on 
last-printstructure . Outputs trees and variable 
Information to file . and returns x as its value. 

If exprflg aT. printstructure will prefer to 
analyze expr's. See page 20.6. 

prints a tree in the horizontal fashion shown in 
the examples above. i.e., printstructure performs 
(MAPC TREELST (FUNCTION TREEPRINT)). 

prints the "lower half" of the printstructure 
output. 

uses treelst to produce a list of the functions 
that call fn. 

If £ü sT * lowor boundary is set to 0, i.e., all 
subrs and all compiled functions will pass this 
test. If fn=NIL, lower boundary set at end of 
bpspace, i.e., no compiled functions will pass 
this test. Otherwise fn is the name of a compiled 
function and the boundary is set at fn, i.e., all 
compiled functions defined earlier than fn are 
rejected. 

if fn=NIL, upper boundary set at end of bpspace, 
i.e., all compiled functions will pass this test. 
Otherwise boundary set at fn, i.e., all compiled 
functions defined later than fn are rejected. 
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Thus to accept all compiled functions, perform firstfn[T] and lastfn[NIL]: to 
reject all compiled functions, perform firstfn[]. 


calls[fn;exprflg;varsflg] 


varst fn;exprflg] 

freevars[fn;exprflg] 


is a fast 'one-level' printstructure , i.e., it 
indicates what functions fn calls, but does not go 
further and analyze any of them. c alls does not 
print a tree, but reports its findings by 
returning as its value a list of three elements: a 
list of all functions called by fn, a list of 
variables bound in fn, and a list of variables 
used freely in fn, e.g., 

callsCprogstruc] » ((PRGETD EXPRP PRGSTRC CCOOEP 
CALLS1 ATTACH) (FN DEF N Y Z CALLSFLG VARSFLG 
VARS1 VARS2 0 X) (N DONELST)) 

fn can be a function name, a definition, or a 
form. Calls first does firstfrt(T), lastfn() so 
that all subrs and compiled functions appear, 
except those on nofns . If varsflg is T, calls 
ignores functions and only looks at the variables 
(and therefore runs much faster). 

cdr[calls[fn;exprflg;T]] 

cadrtvarsffn;exprflg]] 
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20.2 Interscope ** 

^ü® printstructur e is a convenient tool for giving the user an oueruieui of 
the structure of his programs, it is not well suited for determining the answer 
to particular questions the user may have about his programs. For example, if 
FOO uses X freely, and the user wants to know where X is bound ’above' FOO, he 
has to visually trace back up the tree that is output by printstructure . and, 
at each point, look down at the lower portion of the printout and find whether 
the corresponding function binds X. For large Systems, such a procedure can be 
quite tedious. Furthermore, printstructure does not even compute certain 
certain important types of Information. For example, printstructure does not 
distinguish between functions that use a variable freely and those that set it 
(or smash it). 

IM®rjLPPPg is an extension of printstructure designed to resolve these 
shortcomings. Like printstructure , interscope analyses programs (functions), 
although it extracts considerably more Information and relationships than does 
p rintstructure . However, instead of presenting the Information it obtains in a 
predetermined format, interscope allows the user to ask it questions about the 
programs it has analysed, i.e. to interrogate its data base. These questions 
can be input in English, and contain conjunctions, disjunctions, and negations 
of the many relationships between functions and variables that interscope knows 
about. The questions can be closed questions, e.g. "DOES FOO CALL FIE?", or 
open questions, "WHAT FUNCTIONS CALL FIE?". The answers to some questions are 
obtainable directly from the data base, e.g. "WHAT VARIABLES DOES FOO SET?" 
Other questions cause interscope to search its data base, e.g. 
"WHAT FUNCTIONS BIND VARIABLES THAT FOO SETS?". Figure 20-3 contains a sample 
session with i nterscope . 


Interscope was written by P. C. Jackson. 
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m 


•-INTERSCOPE ] 

Hello, shall I analyze a System? 

&-WTFIXFNS AND CLISPFNS. 

This may take a few minutes. 

GC: 8 

1233, 10431 FREE WORDS 
Shall I analyze another System? 

&*"NO [2] 

Ok, what would you like to know? 

&WHO CALLS RETDW1M? 

(WIEIX FIX89TYPEIN FIXAPPLY FIXATOM FIXCONTINUE CLISPATOM FIXT) 

&HOW IS CLISPATOM CALLED? 

I didn't understand that. [3] 

&WHAT FUNCTIONS CALL CLISPATOM? [4] 

(WTFIX FIXAPPLY FIXATOM) 

&WHAT FREE VARIABLES DOES CLISPATOM USE? 

(ONLYSPELLFLG CLISPCHANGES CLISPFLG TYPE-IN? CLISPSTATS INFIXSTATS LST 
FAULTXX CHCONLST FAULTX DWIMIFYFLG 89CHANGE FAULTPOS) 

&WHO BINDS TAIL? 

(WTFIX RETDWIM1 RETDWIM2 RETDWIM3 CLISPFUNCTION? CLISPATOMO CLISPATOM1 
CLISPATOM 1A CLISPATOM2A DWIMIFY1A DWIMIFY2 DWIMIFY2A CLISPRESPELL) 

&WHO BINDS TAIL AND CALLS CLISPATOM SOMEHOW? 

(WTFIX DWIMIFY2) 

&WHAT VARS DOES HELPFIX CHANGE? 

(FORM LASTPOS NOCHANGEFLG HELPFIXTAIL FN TEM BRKEXP) 

&WHAT FUNCTIONS CHANGE THE VARIABLE TENTATIVE? 

(CLISPATOM1 CLISPATOM2 CLISPATOM2C CLISPATOM2A CLISPATOM1A) 

&WHO CHANGES TAIL? 

(FIXATOM HELPFIX1 CLISPATOM1 CLISPATOM2 DWIMIFY2) 

&WHAT FNS USE TEM AS AN INTERANL VAR AND 
...ARE CALLED BY CLISPATOM INDIRECTLY? 

INTERANL=INTERNAL ? Ycs 
(RETDWIM RETDWIM1 FIX89TYPEIN) 

&HOW DOES CLIAPTOM CALL LISTP? 

CLIAPTOM=CLISPATOM ? Yes 

((CLISPATOM LISTP) (CLISPATOM *** RETDWIM *** LISTP) (CLISPATOM [5] 

FIX89 FIX09A LISTP)) 

&SHOW ME THE PATHS FROM CLISPATOM TO LISTP. 

CLISPATOM LISTP 

RETDWIM LISTP [6] 

RETDWIM1 LISTP 
FIX89TYPEIN RETDWIM ... 

FIX89 FIX89A LISTP 
&DOES GETVARS SMASH ANY VARIABLES? 

(L) 

&SHOW ME HOW GETVARS SMASHES L. 

(NCONC L (AND (LISTP X) (MAPCAR & &))) 

&GOODBYE. 

Goodbye. 


Figura 20-3 
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In Order to answer questions about programs, intcrscope must analyze them and 
build its data-base. When interscope is first called, it will ask the user 
what functions he wants analyzed. The user can respond to this question by 
giving interscope either: 1) the name of the top level function called in his 
System, or Z) the name of a variable that evaluates to a list of top level 
functions, or 3) the list itself. All of the functions below each top level 
function will be analyzed, except those which are declared to be 
"uninteresting," as described below. Note that after interscope goes into 
question-answering mode,^ the user can instruct interscope to analyze 
additional functions, either in English input, e.g. "ANALYZE FOOFNS." or by 
calling the function lookat directly (page 20.17). 

The structure of interscope may be divided into three major Subsystems: a 
top-level monitor function, an English preprocessor, and the functions which 
build and search the data base. The monitor function is implemented via 
usorexec (see Section 22), so that the features of the programmer's assistant 
are available from within interscope . 5 For example, the user can REDO or FIX 
interscope questions, interrogate the history list for his Session, or run 


7 ”• ---- 

When i nter scope is first called, and it has not previously analyzed any 

functions, it is in analysis mode, as indicated by its greeting and prompt 
character (&<- instead of &) (see [1] in Figure 20-3). Intcrsco pe goes into 
question-answering mode when the user answers NO to the question "Shall I 
analyse a (another) System?" ([2] in Figure 20-3). The only difference 
betwoen analysis mode and question-answering mode is that in analysis mode, 
intcrscope treats forms as indicating a list of functions to be analysed, 
whereas in question-answering mode, intcrscope simply passes forms back to 
lis px for evaluation. 


intcrscoße assumes that any input line tcrminated by a punctuation mark is 
intended for it to process. interscope will also attempt to process other 
input lines, i.e. those not ending in punctuation. However, if it is not 
able to make sense of the input, interscope will assume that it was 
mtended to be handled by lisp x, and pass it back for evaluation. For 
example, if the user types "HAS THOU SLAIN THE JABBERWOCK?", interscope 
will respond "I didn't understand that", but if the user omits the the 

i 1 , 1 "® w .4i be given t0 -lfspx for evaluation and (probably) cause a 
U.D.F. HAS error. 
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programs from within interscope . g 

The English preprocessor translates English questions,^ Statements, and 
commands into INTERLISP forms appropriate for searchlng and building the 
interscope data base. Although this preprocessor is fairly flexible and 
robust (e.g. includes spelling correction), it translates only a limited subset 
of English sentences, and replies "I dldn't understand that." to anything 
outside this subset ([3] in Figure 20-3).** When this happens, usually a simple 
rephrasing of the question will suffice to allow interscope to handle it ([4] 
in Figure 20-3). 

The interscope data-base can be accessed directly by the user via the functions 
described below. It should be noted that interscope actually creates two data 
bases, the first containing Information about the elementary relations between 
the functions and variables in the user's System, and the second containing 
Information derived from the first, i.e. the paths by which one function calls 
another. The first data base is created when interscope analyzes a System (via 
the function lookat ). The second data base is developed incrementally (by the 
function paths ). depending on the questions asked by the user. Both data bases 
are stored on the property lists of the functions and variables which are 
analyzed. 


Since the data base that Interscope constructs is global (stored on 
property lists), the user can also exit from interscope , either by typing 
OK or GOODBYE, or via control-D, and then reenter interscope at some later 
point and continue asking questions,' without having to reanalyze his 
functions. 


10 The translation of the most recent input is always stored in the function 
definition cell of the atom MEANING. 


11 Whoro possible, interscope will try to inform the user what part of the 
sentence it did not understand. 
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Interscope "understands" a wide variety of the elementary relations that exist 
between functions and variables, e.g. which functions bind, use, change, test, 
or smash a given variable, which functions may cause a given function to be 
called, either directly or indirectly, i2 which variables are used as global or 
local free variables, either by a given function or by a group of functions, 
etc. 

Information about the function-call paths from one program to another is 
"generalized" when it is stored; e.g. at [5] in Figure 20-3, one of the paths 
by which CLISPATOM calls LISTP is given as (CLISPATOM *** RETDWIM *** LISTP), 
which means that there is more than one path from CLISPATOM to RETDWIM, and 
more than one path from RETDWIM to LISTP. 

The conventions used by interscope for recognizing functions that are 
"uninteresting" are the same as those used by printstructure (page 20.3), i.e. 
yesfns, nofns f irstfn , and lastfn all have the same effect as for 
printstructure . 


Interscope Functions 

paths[x;y;type;must;avoid;only] Value is a list of paths from x to y, where 

each path is an ordered list of functions. *** is 
used to indicate multiple paths. For example, if 
F00 calls FIE, and FIE calls FUM directly as well 
as calling FIE1 which calls FUM, then 
paths[FOO;FUM] returns ((FOO FIE *** FUM)). 


12 


e.g. if FOO calls FIE, and FIE calls FUM, then FOO calls FUM indirectly. 


'SOMEHOW 


means 


directly 


"WHAT FUNCTIONS CALL FOO SOMEHOW?" 


or 


indirectly, 


e.g. 
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type . must , avoid , and only are optional, type can 
be either CALLS or CALLEOBY (NIL is equivalent to 
CALLS), e.g. in the above example, 
paths[FUM;FOO;CALLEDBY] would return the sarae set 
of paths as paths[FOO;FUM], except each path would 
be in the reverse order. 

must , avoid , and only are used to select out 
certain types of paths. Each can be specified by 
an atom which evaluates to a list of functions, or 
a form which evaluates to such a list. If (the 
value of) must is non-NIL, each path is required 
to go through at least one of the members of must . 
If avoid is non-NIL, no path can go through any 
member of avoid . If only is non-NIL, no path can 
go through any function which is not a member of 
only , i.e. each path can only go through functions 
on only . 13 

treepaths[x;y;type;must;avoid;only] Like paths . except prints paths as a 

tree structure, as shown at [6] in Figure 20-3. 
type , must , avoid . and only have the same meaning 
as with paths .^ 


PiLtbs is called for English inputs of the form: 
"WHAT ARE THE PATHS FROH x TO y?". Such questions can be modified with 
subordinate clauses to indicate values for must, avoid, and/or only. e.a. 
"WHAT ARE THE PATHS FROM FOO TO FIE WHICH ONLY GO THROUGH FOOFNS AND AVOID 
FIEFNS?" 


tree path s is called for English inputs of the form "SHOW ME HOW x CALLS y", 
"DISPLAY THE PATHS FROM x TO y", etc. 
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lookat[x] 


Builds the initial data base describing the System 
x, where x is either the name of a function, the 
name of a variable which evaluates to a list of 
functions, or the list of functions itself. 

clumpget[object;relation;universe] Value is a list of objects (functions or 

variables) which have the indicated relation with 
respect to object . e.g. clumpget[FOO;CALLERS] 
returns a list of functions that call FOO, 
clumpget[X;SMASHERS] a list of functions that 
smash the variable X, etc. A complete list of the 
possible values for relation is given below,* 0 

object can be a list of objects (or a variable 
which evaluates to a list of objects), in which 
case the value returned by clumpget is the list of 
all objects which have the indicated relation to 
any of the members of object . 

Similarly, universe can be a list of objects (or a 
variable which evaluates to a list of objects), in 
which case the value returned by clumpget is the 
list of all objects in universe which have the 
indicated relation to object (or any of the 
members of object ). e.g. 
clumpget[X;SMASHERS;F00FNS]. 


ojLumj)go_t is given a value for relation that it does not recognize, it 
will attempt spelling correction, and if that fails, generate an error. If 
given a value for object that it has not seen before, it will type "I don't 
know anything about object, shall I analyse a System?" and go into analysis 
mode. 
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Finally,, universe can be a relation, which is 


Currently, the 

CALLERS 

CALLEDFNS 

CALLCAUSERS 

CALLSCAUSEO 

ABOVE 

BE LOW 

ARGS 


equivalent to supplying clumpget[objectjuniverse] 
ln place of ob .ject , l.e. the value returned 1s the 
list of all objects which have the indicated 
relation to any of the members of the {set of all 
objects which bear the relationship universe to 
object }. For example, 

clumpget[F00;CALLERS;CALLEDFNS] is a list of all 
functions that call any of the functions (CALLERS) 
that are directly called by FOO (CALLEDFNS). 
c1umpget[F00;FREEUSERS;LOCALVARS] is a list of 
functions that use freely any of the variables 
that are bound locally by FOO. 

following relations are implemented: 

list of functions that directly call object . 

list of functions directly called by object . 

list of functions that call object , perhaps 

indirectly. In English: "WHO CALLS FOO SOMEHOW?". 

list of functions called by object . perhaps 

indirectly. In English: "WHO DOES FOO CALL 
SOMEHOW?" 

Union of object with CALLCAUSERS. 

union of object with CALLSCAUSEO. 

arguments of object . 
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ARGBINDERS 

LOCALVARS 


LOCALBINDERS 


FREEVARS 

FREEUSERS 

LOCALFREEVARS 


GLOBALFREEVARS 


ENTRYFNS 


list of functions that have object as an argument. 

list of variables that are locally bound in 
object , e.g. PROG vars. 

list of functions that bind object as a local 
variable. 

list of variables used freely by object . 

list of functions that use object freely. 

list of variables that are used freely in object , 
but are bound in object before they are used, e.g. 
clumpget[FOO;LOCALFREEVARS;BELOW] gives a list of 
those variables used freely below FOO, but are 
bound above the place that they are used.^® In 
English: "WHAT ARE THE LOCAL FREE VARS (VARIABLES) 
BELOW FOO?" 


list of variables used freely in object without 
previously being bound in object . 

list of each function in object which is not 
called by any function in object other than 
itself, e.g. clumpget[FOOFNS;ENTRYFNS]. 


^2.?. object is the name of a function and universe is NIL, 
LOCALFREEVARS will always be NIL, and GLOBALFREEVARS the same as FREEVARS. 
It is only in connection with collections of functions that LOCALFREEVARS 
and GLOBALFREEVARS become interesting. 


20.19 




SELFRECURSIVE 


list of Functions in object which call themselves 
directly. 


CAUSESELFCALL list of functions in object which could call 

themselves, perhaps indirectly. 

CAUSERECURSION list of functions in object which cause some 

function to call itself, perhaps indirectly. 


CHANGEVARS list of variables that are changed by object , 

where 'changed* means any flavor of assignment, 
i.e. via SETQ, SETQQ, RPAQ, SETN, or even an 
expression of the form (RPLACA (QUOTE atom) value) 
(or FRPLACA, /RPLACA, SAVESET, etc.) 17 

CHANGERS list of functions that change object . 


Notei ' set' in English input means any flavor of assignment, and translates the 
same as ’change'. 


SMASHVARS list of variables whose value are smashed by 

object . where 'smash' means the variable appears 
as the first argument to one of the list of 
functions on smasherslst. 1 ^ 


clumpg et will accept as relations SETQVARS, SETQERS, SETVARS, SETTERS, 
SETQQERS, SETQQVARS, etc., in case the user wants to distinguish between 
the various flavors of assignments. In English, "WHAT ARE THE SETQERS OF 
X?", etc. 


1 

Initially (RPLACA RPLACD FRPLACA FRPLACD /RPLACA /RPLACD NCONC NCONC1 
/NCONC /NCONC1 ATTACH /ATTACH RPLNODE /RPLNODE RPLN0DE2 /RPLN0DE2). As 
with assignments, clumpget will accept as relations RPLACAERS, RPLACAVARS, 
RPLACDERS, RPLACOVARS, etc., in case the user wants to distinguish the 
different types of smashing. 
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SMASHERS 


list of functions that smash object . 


TESTVARS 


TESTERS 


USEVARS 


list of variables that are tested by object . where 
'tested* means they appear as the first argument 
to one of the list of functions on testersist , 
initially (ATOM LISTP NUMBERP NLISTP STRINGP EQ 
EQP EQUAL NULL), or anywhere in an AND or OR, or 
as the predlcate in a COND clause, or as the first 
argument to SELECTQ, etc. 

list of functions that test object . 

list of variables that are used in object , where 
'used' means actually appear in the body of the 
function, i.e. if a variable is simply bound, but 
not actually used anywhere, it will not be 
included in the value of USEVARS. CHANGEVARS and 
TESTVARS are subsets of USEVARS. 


USERS 


list of functions that use object . 
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SECTION 21 


MISCELLANEOUS 


21.1 Measuring Functions 

time[timex;timen;timetyp] is an nlambda function. It executes the 

computation timex , and prints out the number of 
conses and computation time. Garbage Collection 
time is subtracted out. 


*-TIME( (LOAO (QUOTE PRETTY) (QUOTE PROP] 
FILE CREATEO 7-MAY-71 12:47:14 


GC: 8 

582, 10291 FREE WORDS 

PRETTYFNS 

PRETTYVARS 

3727 CONSES 

10.655 SECONDS 

PRETTY 


If timen is greater than 1 ( timen =NIL equivalent 
to timen sl). time executes timex timen number of 
tiraes and prints out number of conses/timen, and 
computation time/timen. This is useful for more 
accurate measurement on small computations,e.g. 


♦*TIME((COPY (QUOTE (A B C))) 10) 
30/10 = 3 CONSES 
.055/10 = .0055 SECONDS 
(A B C) 
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If time type ls 0, time measures and prlnts total 


real time as well as computation time, e.g. 


*-TIME((LOAD (QUOTE PRETTY) (QUOTE PROP)) 10] 
FILE CREATEO 7-MAY-71 12:47:14 


GC: 8 

582, 10291 FREE WORDS 

PRETTYFNS 

PRETTYVARS 

3727 CONSES 

11.193 SECONDS 

27.378 SECONDS, REAL TIME 

PRETTY 


If timetyp » 3, time measures and prints garbage 
collection time as well as computation time, e.g. 


<-TIME((LOAD (QUOTE PRETTY) (QUOTE PROP)) 1 3] 
FILE CREATED 7-MAY-71 12:47:14 

GC: 8 

582, 1091 FREE WORDS 
PRETTYFNS 
PRETTYVARS 
3727 CONSES 
10.597 SECONDS 

1.487 SECONDS, GARBAGE COLLECTION TIME 
PRETTY 


Another Option is timetype =T. in which case time 
measures and prints the number of pagefaults. 

The value of time is the value of the last 
evaluation of timex . 

date[ac3] If ac3=NIL, obtains date and time from TENEX and 

returns it as single string in format "dd-mm-yy 
hh:mm:ss", where dd is day, mm is month, yy year, 
hh hours, mm minutes, ss seconds, e.g., 
"14-MAY-71 14:26:08". 
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Other values of ac3 can be used to specify other 
formats, e.g. day of week, time zone, etc. as 
described in TENEX JSYS Manual. 

clocktn] for n=0 current value of the time of day clock 

i.e., number of milliseconds since last 
System Start up. 

for n»l value of the time of day clock when the 
user started up this INTERLISP, i.e., 
difference between clock[0] and dockt 1] 
is number of milliseconds (real time) 
since this INTERLISP was started. 

for n=2 number of milliseconds of compute time 

since user started up this INTERLISP 
(garbage collection time is subtracted 
off). 

for n*3 number of milliseconds of compute time 
spent in garbage collections (all 
types). 1 

dismisstn] dismisses program for n milliseconds, during which 

time program is in a state sirailar to an I/O wait, 
i.e., it uses no CPU time. Can be aborted by 
control-D, control-E, or control-B. 


This number is directly accessible via the COREVAL GCTIM. 
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conscount[n] 


boxcoun t[type;n] 


gctrp[ ] 


pagefaults[ ] 

logout[ ] 


conscount[] returns the number of conses since 
INTERLISP started up. If n is not NIL, resets 
conscount to n. 

number of boxing operations (see Section 13) since 
INTERLISP started up. If type =NIL, returns number 
of large integer boxes; type»FLOATING, returns 
number of floating boxes. 2 If n is not NIL, 
resets the corresponding counter to n. 

number of conses to next GC: 8, i.e., number of 
list words not in use. Note that an intervening 
GC of another type could collect as well as 
allocate additional list words. See Section 3. 

gctrp[n] can be used to cause an Interrupt when 
value of gctrp[]sn, see Section 10. 

number of page faults since INTERLISP started up. 

returns to TENEX. 3 A subsequent CONTINUE command 
will enter the INTERLISP program, return NIL as 
the value of the call to logout , and continue the 
computation exactly as if nothing had happened, 
i.e., logout is a programmable control-C. As with 
control-C, a REENTER command following a logout 
will reenter INTERLISP at the top level. 


2 These counters are directly accessible via the COREVALs IBOXCN and FBOXCN. 

3 

5 If INTERLISP was started as a subsidiary fork (see subsys . page 21.18), 
control is returned to the higher fork. 
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logout[ 3 will not affect the state of any open 
flies. 


21.2 Breakdown 4 


lime gives analyses by computation. Breakdown is available to analyze the 
breakdown of computation time (or any other measureable quantity) function by 
function. The user calls breakdown giving it a list of functions of Interest. 
These functions are modified so that they keep track of the "Charge" assessed 
to them. The function results gives the analysis of the statistic requested as 
well as the number of calls to each function. Sample output is shown below. 6 


►BREAKDOWN(SUPERPRINT SUBPRINT COMHENTI) 
(SUPERPRINT SUBPRINT COMHENTI) 
-PRETTYDEF((SUBPRINT) FOO) 


(SUBPRINT) 

-RESULTSO 

FUNCTIONS 

TIME 

# CALLS 

SUPERPRINT 

25.294 

458 

SUBPRINT 

32.96 

169 

C0MMENT1 

7.833 

12 

TOTAL 

66.087 

639 

NIL 




The procedure used for measuring is such that if one function calls other and 
both are broken down', then the time (or whatever quantity is being measured) 
spent in the inner function is not charged to the outer function as well. 6 


breakdown was written by W. Teitelman. 


This is with an interpreted prettyprint . 


br g akdown will not give accurate results if a function being measured is 
not returned from normally, e.g. a lower retfrom (or error ) bypasses it. 
in this case, all of the time (or whatever quantity is being measured) 
oetween the time that function is entered and the time the next function 
being measured is sntered will be charged to the first function. 
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To remove functions froro those being monitored, simply unbreak the functions, 
thereby restoring thero to their original state. To add functions, call 
breakdown on the new functions. This will not reset the counters for any 
functions not on the new list. iHowever breakdown[] can be used for zeroing the 
counters of all functions being monitored. 


To use breakdown for sorae other statistic, before calling breakdown . set the 
variable brkdwntype to the quantity of interest, e.g., TIME, CONSES, etc. 
Whenever breakdown is called with brkdwntype not NIL, breakdown perfonns the 
necessary changes to its internal state to conform to the new analysis. In 
particular, if this is the first time an analysis is being run with this 
statistic, the Compiler may be called to compile the measuring function.* 7 When 
breakdown is through initializing, it sets brkdwntype back to NIL. Subsequent 
calls to breakdown will measure the new statistic until brkdwntype is again set 
and a new breakdown performed. Sample output is shown below: 


«-SET(BRKDWNTYPE CONSES) 

CONSES 

-BREAKDOWN(MATCH CONSTRUCT) 

(MATCH CONSTRUCT) 

*-FLIP( (A BCDEFGHCZ) {.. S1 .. #2 ..)(.. #3 ..)) 
(A B D E F G H Z) 

«-RESULTS<) 

FUNCTIONS CONSES # CALLS 

MATCH 32 1 

CONSTRUCT 47 1 

TOTAL 79 2 

NIL 


The value of brkdwntype is used to search the list brkdwntypes for the 
Information necessary to analyze this statistic. The entry on brkdwntypes 
corresponding to brkdwntype should be of the form (type form function), where 
form computes the statistic, and function (optional) converts the value of form 
to some more interesting quantity, e.g. 


7 


The measuring functions for TIME and CONSES have already been compiled. 



(TIME (CLOCK 2) (LAMBDA (X) (FQUOTIENT X 1000)))* measures computation time and 
reports the result in seconds instead of milliseconds. If brkdwntype is not 
defined on brkdwntypes , an error is generated. brkdwntypes currently contains 
entries for TIME, CONSES, PAGEFAULTS, BOXES, and FBOXES. 


More Accurate Measurement 

Occasionally, a function being analysed is sufficiently fast that the overhead 
involved in measuring it obscures the actual time spent in the function. If 
the user were using time , he would specify a value for timen greater than 1 to 
give greater accuracy. A similar Option is available for breakdown . The user 
can specify that a function(s) be executed a multiple number of times for each 
measurement, and the average value reported, by including a number in the list 
of functions given to breakdown . e.g., BREAKDOWN(EDITCOM EDIT4F 10 E0IT4E EQP) 
means normal breakdown for editcom and edit4f but executes (the body of) edit4e 
and eqp 10 times each time they are called. Of course, the functions so 
measured must not cause any harmful side effects, since they are executed more 
than once for each call. The printout from results will look the same as 
though each function were run only once, except that the measurement will be 
more accurate. 


For more accurate measurement, the form for TIME is not (CLOCK 2) but 
(ASSEMBLE NIL (MOVEI 1 , -5) (0SYS 13) (SUB 1 , GCTIM)). 
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21.3 Edita g 


E^ita is an editor for arrays. However, its most frequent application is in 
editing compiled functions (which are also arrays in INTERLISP), and a great 
deal of effort in implementing edita . and most of its special features, are in 
this area. For example, edita knows the format and conventions of INTERLISP 
compiled code, and so, in addition to decoding instructions a la DDT,^ edita 
can fill in the appropriate COREVALS, symbolic names for index registers, 
references to literals, linked function calls, etc. The following output shows 
a sequence of instructions in a compiled function first as they would be 
printed by DDT, and second by edita. 


466716/ 

PUSH 16,LISP&KNIL 

3/ 

PUSH PP.KNIL 

466717/ 

PUSH 16,LISP&KNIL 

4/ 

PUSH PP.KNIL 

466720/ 

HRRZ 1,-12(16) 

5/ 

HRRZ 1,-10(PP) 

466721/ 

CAME 1,LISP&KNIL 

6/ 

CAME l.KNIL 

466722/ 

JRST 466724 

7/ 

JRST 9 11 

466723/ 

HRRZ 1,0467575 

8/ 

HRRZ 1,0'BRKFILE 

466724/ 

PUSH 16,1 

9/ 

PUSH PP,1 

466725/ 

LISP&IOFIL,,467576 

10/ 

PBIND 'BRKZ 

466726/ 

-3,,-3 

11/ 

-524291 

466727/ 

HRRZ 1,-14(16) 

12/ 

HRRZ 1,-12(PP) 
CAMN 1,'OK 

466730/ 

CAMN 1,467601 

13/ 

466731/ 

JRST 466734 

14/ 

JRST 17 

466732/ 

CAME 1,467602 

15/ 

CAME 1,'STOP 

466733/ 

JRST 466740 

16/ 

JRST 21 

466734/ 

PUSH 16,467603 

17/ 

PUSH PP,'BREAK1 

466735/ 

PUSH 16,467604 

18/ 

PUSH PP,'(ERROR!) 
CCALL 2,'RETEVAL 

466736/ 

LISP&FILEN,,467605 

19/ 

466737/ 

JRST 467561 

20/ 

JRST 422 

466740/ 

CAME 1,467606 

21/ 

CAME 1,'GO 

466741/ 

JRST 466754 

22/ 

JRST 33 

466742/ 

HRRZ 1,0-12(16) 

23/ 

HRRZ 1,0-1O(PP) 

466743/ 

PUSH 16,1 

24/ 

PUSH PP,1 


o - 

edita was written by W. Teitelman. 


DDT is one of the oldest debugging Systems still around. For users 
unfamiliar with it, let us simply say that edita was Datterned after it 
because so many people are familiär with it. 

Note that edita prints the addresses of cells contained in the function 
relative to the origin of the function. 
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Therefore, rather than presenting edita as an array editor with some extensions 
for editing corapiled code, we prefer to consider it as a facility for editing 
compiled code, and point out that it can also be used for editing arbitrary 
arrays. 

OverView 

To the user, edita looks very much like DDT with INTERLISP extensions. It is a 
function of one argument, the name of the function to be edited. 12 Individual 
registers or cells in the function may be examined by typing their address 
followed by a slash,* 3 e.g. 


6/ HRRZ 1,-10(PP) 

The slash is real ly a cotranand to edita to open the indicated register.*^ Only 
one register at a time can be open, and only open registers can be changed. To 
change the contents of a register, the user first opens it, types the new 
contents, and then closes the register with a carriage-return,*^ e.g. 

7/ CAME1,' t CAHN 1, 'O 


— - - -- 

An optional second argument can be a list of commands for edita . These are 
then executed exactly as though they had come from the teletype. 


13 

Underlined characters were typed by the user. edita uses its own read 
program, so that it is unnecessary to type a space before the slash or to 
type a carriage return after the slash. 


14 ■ 

edita also converts absolute addresses of cells within the function to 
relative address on input. Thus, if the definition of foo begins at 85660, 
typing 6/ is exactly the same as typing 85666/. 


Since carriage-return has a special meaning, edita indicates the balancing 
of parentheses by typing a space. 
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If the user closes a register without specifying the new contents, the contents 
are left unchanged. Similarly, if an error occurs or the user types control-E, 
the open register, if any, is closed without being changed. 


Input Protocol 

Edita processes all inputs not recognized as commands in the same way. If the 
input is the name of an Instruction (i.e. an atom with a numeric OPD property), 
the corresponding number is added to the input value being assembled, 1 *^ and a 
flag is set which specifies that the input context is that of an Instruction. 

The general form of a machine iristruction is (opcode ac , @ address (Index)) as 
described in Section 18. Therefore, in Instruction context, edita evaluates 
all atoms (if the atom has a COREVAL property, the value of the COREVAL is 
used), and then if the atom corresponds to an ac, i7 shifts it left 23 bits and 
adds it to the input value, otharwise adds it directly to the input value, but 
performs the arithmetic in the low 18 bits.^ Lists are interpreted as 
specifying index registers, and the value of car of the list (again COREVALs 
are permitted) is shifted left 18 bits. Examples: 


16 The input value is initially 0. 


17 

i.e. if a has not been seen, and the value of the atom is less than 16, 
and the low 18 bits of the input value are all zero. 


1 ß 

If the absolute value of the atom is greater than 1000000Q, full word 
arithmetic is used. For example, the indirect bit is handled by simply 
binding & to 20000000Q. 
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PUSH PP, KNIL 
HRRZ 1,-10(PP) 

CAME 1, 'GO 
JRST 33 ORG 19 

The user can also specify the address of a literal via the 1 comraand, see page 
21.14. For example, if the literal " UNBROKEN" is in cell 85672, 
HRRZ 1,'" UNBROKEN" is equivalent to HRRZ 1, 85672. 

When the input context is not that of an Instruction, i.e. no OPD has been 
seen, all inputs are evaluated (the value of an atora with a COREVAL property is 
the COREVAL.) Then numeric values are simply added to the previous input value; 
non-numeric values become the input value 

The only exception to the entire procedure occurs when a register is open that 
is in the pointer region of the function, i.e. literal table. In this case, 
atoraic inputs are not evaluated. For example, the user can change the literal 
FOO to FIE by simply opening that register and then typing FIE followed by 
carriage-return, e.g. 

'FOO/ FOO FIEj 

Note that this is equivalent to 'FOO/ FOO (QUOTE FIE)i 


IQ ~ ------ 

c dita cannot in general know whether an address field in an Instruction 
that is typed in is relative or absolute. Therefore, the user must add 
ORG, the origin of the function, to the address field himself. Note that 
edita would print this instruction, JRST 53 ORG, as ORST 53. 


20 


Presumably there is only one input in this case. 




Edita Commands and Variables 


i (carriage-return) If a register is open and an input was ty|»ed, 

störe the input in the register and close it . 1 

If a register is open and nothing was typed, close 
the register without changing it. 

If a register is not open and input was typed, 
type its value. 


ORG Has the value of the address of the first 

Instruction in the function. i.e. loc of getd of 
the function. 


/ Opens the register specified by the low 18 bits of 

the quantity to the left of the /, and types its 
contents. If nothing has been typed, it uses the 
last thing typed by edita . e.g. 


35/ JRST 53 / CAME 1,*RETURN / RETURN 


If a register was open, / closes it without 
changing its contents. 

After a / command, edita returns to that state of 
no input having been typed. 


tab (control-I) Same as carriage-return, followed by the address 

of the quantity to the left of the tab, e.g. 


35/ JRST 53 tab 
537 CAME 1,'RETURN 


Note that if a register was open and input was typed, tab will change the open 
register before closing it, e.g. 



35/ 

JRST 53 JRST 54 tab 


54/ 

JRST 70 l 


35/ 

JRST 54 

(period) 


has the value of the address of the current (last) 
register examined. 
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If the register is in the unboxed region of the function, the unboxed value 
is stored in the register. 
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line-feed 


same as carriage-return followed by (AD01 .)/ i.e. 
closes any open register and opens the next 
register. 


same as carriage-return followed by (SUB1 .)/ 


has as its value the last quantity typed by edita 
e.g. 


35/ JRST 53 SO \> 
./ ÜRST 54 


has as value the (relative) address of the first 
literal. 


same as LITS 


has as value the relative address of the last 
literal in the function. 


Sets radix to -8 and types the quantity to the 
left of the * sign, i.e. if anything has been 
typed, types the input value, otherwise, types SQ, 
e.g. 


35/ JRST 54 =254000241541Q JRST 54=2540000000660 


Following =, radix is restored and edita returns 
to the no input state. 


OK leave edita 


? return to *no input' state. ? is a 'weak' 

control-E, i.e. it negates any input typed, but 
does not close any registers. 


addressl, address2/ prints^ the contents of registers addressl 

through addressZ . . is set to address2 after the 
completion. 


t 

SQ (alt-modeQ) 

LITS 

BOXEO 
$ (dollar) 


output goes to file . initially set to T. The user can also set file (while 
in edita ) to the name of a disc file to redirect the output. (The user is 
responsible for openlng and closing file.) Note that file only affects 
output for the addressl, address2/ command. 
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x corresponds to the 1 in LAP. The next expression 

is read, and if it is a small number, the 
appropriate offset is added to it. Otherwise, the 
literal table is searched for x, and the value of 
'x is the (absolute) address of that cell. An 
error is generated if the literal is not found, 
i.e. ' cannot be used to crecrte literals. 

:aton > defines atom to an address 

(1) the value of $Q if a register is open, 

(2) the input if any input was typed, 
otherwise 

(3) the value of '.'. 

For example: 

35/ JRST 54 ;F00> 

:FIE,) 

FIE/ JRST FOO .-35 


Edita keeps its Symbol tables on two free variables, usersyms and symlst . 

is a üst of elements of the form (name . value) and is used for 
encoding input, i.e., all variables on usersyms are bound to their 
corresponding values during evaluation of any expression inside edita . Symlst 
is a list of elements of the form (value . name) and is used for decoding 
addresses. Usersyms is initially NIL, while symlst is set to a list of all the 
corevals. Since the : command adds the appropriate Information to both these 
two lists, new definitions will remain in effect even if the user exits from 
edita and then reenters it later. 


Note that the user can effectively define Symbols without using the : command 
by appropriately binding usersyms and/or symlst before calling edita . Also, he 
can thus use different symbol tables for different applications. 


SW (alt-modeW) 


search command. 


Searching consists of comparing the object of the search with the contents of 
each register, and printing those that raatch, e.g. 

Only the low 18 bits are used and converted to a relative address whenever 
possible. 
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HRRZ 9 SW,> 

8/ HRRZ 1,0'BRKFILE 
23/ HRRZ 1,@-10(PP) 

28/ HRRZ 1,@-12(PP) 

The SW command can be used to search either the unboxed portion of a function, 
i.e. instructions, or the pointer region, i.e. literals, depending on whether 
or not the object of the search is a number. If any input was typed before the 
SW, it will be the object of the search, otherwise the next expression is read 
and used as the object. The user can specify a starting point for the search 
by typing an address followed by a before calling SW, e.g. i, JRST SW. If 
no starting point is specified, the search will begin at 0 if the object is a 
number, otherwise at LITS, the address of the first literal. 25 After the search 
is completed, is set to the address of the last register that matched. 

If the search is operating in the unboxed portion of the function, only those 
fields (i.e. instruction, ac, indirect, index, and address) of the object that 
contain one bits are cotnpared. 25 For example, HRRZ @ SW will find all instances 
of HRRZ indirect, regardless of ac, index, and address fields. Similarly, 
'PRINT SW will find all instructions that reference the literal PRINT. 27 


24 ----- ----- 

Note that inputs typed before the SW will have been processed according to 
the input protocol, i.e. evaluated; inputs typed after the SW will not. 
Therefore, the latter form is usually used to specify searching the 
literals, e.g. SW FOO is equivalent to (QUOTE F00) SW. 


2ö 

Thus the only way the user can search the pointer region for a number is to 
specify the starting point via 


26 

Alternately, the user can specify his own mask by setting the variable mask 
(while in edita ), to the appropriate bit pattem. 


27 

The user may need to establish instruction context for input without giving 
a specific instruction. For example, suppose the user wants to find all 
instructions with ac=l and index=PP. In this case, the user can give & as 
a pseudo-instruction, e.g. type & 1, (PP). 
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If the search is operating in t;he pointer region, a 'match' is as defined in 
the editor. For example, SW (4) will find all registers that contain a list 
consisting of a single expression. 


$C (alt-modeC) like $y except only prints the first match, then 

prints the number of matches when the search 
finishes. 


Editing Arrays 

* s called to edit a function by giving it the name of the function. 

Edita can also be called to edit an array by giving it the array as its first 

OO 

argument, in which case the following differences are to be noted: 

1. decoding - The contents of registers in the unboxed region are boxed 
and printed as numbers, i.e. they are never interpreted as 
instructions, as when editing a function. 

2. addressing convention - Whereas 0 corresponds to the first Instruction 
of a function, the first element of an array by convention is element 
number 1. 

3. input protocols - If a register is open, lists are evaluated, atoras 
are not evaluated (except for SQ which is always evaluated). If no 
register is open, all inputs are evaluated, and if the value is a 
number, it is added to the 'input value'. 

4. left half - If the left half of an element in the pointer region of an 
array is not all O's or NIL, it is printed followed by a ;, e.g. 


28 


th ® not a variab l« whose value is an array, e.g. (EOITA F00), 

nnr PitTTfl / Cnn \ 9 9 




10/ (A B) ; T 


Similarly, if a register is closed, either its left half, right half, 
or both halves can be changed, depending on the presence or absence, 
and Position of the ; e.g. 


10/ 

(A B) ; T 

B :> changes left 


B ; T 

NILi 

changes right 


B ; NIL 

A ; C 

A_I_C2 

changes both 


If ; is used in the unboxed portion of an array, an error will be 
generated. 

The SW coramand will look at both halves of elements in the pointer region, and 
match if either half raatches. Note that SW A ; B is not allowed. 

This ends the section on edita. 


21.4 Interfork Communication 


The functions described below permit two forks (one or both of thera INTERLI5P) 
to have a common area of address space for communication by providing a means 
of assigning a block of storage guaranteed not to move during garbage 
collections. 

getblk[n] Creates a block n pages in size (512 words per 

page). Value is the address of the first Word in 
the block, which is a multiple of 512 since the 
block will always begin at a page boundary. If 
not enough pages are available, generates the 
error ILLEGAL OR IMPOSSIBLE BLOCK. 
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Notei the block can be used for storing unboxed numbers onlu . 

To störe a number in the block, the following function could be used: 

[SETBLOCK (LAMBDA (START N X) (CLOSER (IPLUS (LOC START) N) X] 

Some boxing and unboxing can be avoided by making this function compile open 
via a Substitution macro. 

Notei getblk should be used sparinglg since several unmovable regions of memory 
can make it difficult or impossible for the garbage collector to find a 
contiguous region large enough for expanding array space. 

relblk[address;n] releases a block of storage beginning at address 

and extending for n pages. Causes an error 
ILLE6AL OR IMPOSSIBLE BLOCK if any of the ränge is 
not a block. Value is address . 

21.5 Subsys 29 

This section describes a function, subsys . which permits the user to run a 
TENEX Subsystem, such as SNDMSG, SRCCOM, TECO, or even another INTERLISP, fron» 
inside of an INTERLISP withciut destroying the latter. In particular, 
SUBSYS(EXEC) will start up a lower exec, which will print the TENEX herald, 
followed by &. The user can then dp anything at this exec level that he can at 
the top level, without affecting his superior INTERLISP. For example, he can 
start another INTERLISP, perfonn a sys in . run for a while, type a control-C 
returning hira to the lower exec, RESET, do a SNDMSG, etc. The user exits from 
the lower exec via the command QIUIT, which will return control to subsys in the 


29 ... 

subsys was written by J.W. Goodwin. 
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higher INTERLISP. Thus with subsys . the user need not perforra a sysout to save 
the state of his INTERLISP in order to use a TENEX capability which would 
otherwise clobber the core image. Similarly, subsys provides a way of checking 
out a sysout file in a fresh INTERLISP without having to commandeer another 
teletype or detach a Job. 

While subsys can be used to run any TENEX Subsystem directly, without going 
through an intervening exec, this procedure is not recommended. The problem is 
that control-C always returns control to the next highest exec. Thus if the 
user is running an INTERLISP in which he performs SUBSYS(LISP), and then types 
control-C to the lower INTERLISP, control will be returned to the exec above 
the first INTERLISP. The natural REENTER command would then clear the lower 

Ort 

INTERLISP, but any files opened by it would remain open (until the next 
©RESET). If the user elects to call a Subsystem directly, he must therefore 
know how it is normally exited and always exit from it that way.*** 

Starting a lower exec does not have this disadvantage, since it can only be 
exited via QUIT, i.e., the lower exec is effectively ’errorset protected 1 
against control-C. 

subsys[ f lle/f ork; incomf ile ;outcomf ile ;entrypointf lg] 

If flle/fork sEXEC. Starts up a lower exec, 
otherwise runs <SUBSYS>system, e.g. 
subsys[SNDMSG],subsys[TECO] etc. susbysC ] is same 
as subsys[EXEC]. Control-C always returns control 


SO 

A CONTINUE command however will return to the subordinate program, i.e. 
control-C followed by CONTINUE is safe at any level. 


31 

INTERLISP is exited via the function logout . TECO via the command ;H, 
SNDMSG via control-Z, and EXEC via QUIT. 
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to next higher exec. Note that more than one 
INTERLISP can be stacked, but there is no 
backtrace to help you figure out where you are. 

incomfile and outcomfile provide a way of 
specifying files for input and output, incomfile 
can also be a string, in Which case a temporary 
file is evaluated, and the string printed on it. 

entrypointflg may be START, REENTER, or CONTINUE. 
NIL is equivalent to START, except when file/fork 
is a handle (see below) in which case NIL is 
equivalent to CONTINUE. 

The value of subsys is a large integer which is a handle to the lower fork. 

The lower fork is not reset unloss the user specifically does so using kfork , 
32 

described below. If susbys is given as its first argument the value of a 

qo 

previous call to subsys , , it continues the Subsystem run by that call. For 
example, the user can do (SETQ SOURCES (SUBSYS TECO)), load up the TECO with a 
big source file, massage the file, leave TECO with ;H, run INTERLISP for awhile 
(possibly including other calls to subsys ) and then perform (SUBSYS SOURCES) to 
return to TECO, where he will find his file loaded and even the TECO pointer 
Position preserved. 


O O " - 

The fork is also reset when the handle is no longer accessible, i.e., when 
nothing in the INTERLISP System points to it. Note that the fork is 
accessible while the handle remains on the history list. 


33 

Must be the exact same large number, i.e. eg. Note that if the user 
neglects to set a variable to the value of a call to subsys , (and has 
performed an intervening call so that sybsys[T] will not work), he can 
still continue this Subsystem by obtaining the value of the call to subsys 
for the history list using the function valueof, described in Section 22. 
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Note that if the user Starts a lower EXEC, in which he runs an INTERLISP, 
control-C's from the INTERLISP, then QUIT fron the EXEC, if he subsequently 
continues this EXEC with subsys . he can reenter or continue the INTERLISP. 

Note also that calls to subsys can be stacked. For example, using subsys , the 
user can run a lower INTERLISP, and within that INTERLISP, yet another, etc., 
and ascend the chain of INTERLISPs using logout , and then descend back down 
again using subsys . 

For convenience, subsys[T] continues the last Subsystem run. 

SNDMSG, LISP, TECO, and EXEC, are all LISPXMACROS which perform the 
corresponding calls to subsys . CONTIN is a LISPXMACRO which performs 
subsys[T], thereby continuing the last subsys . 

kfork[fork] accepts a value from subsys and kills it (RESET in 

TENEX terminology). If subsys[fork] is 
subsequently performed, an error is generated. 
kfork[T] kills all outstanding forks (from this 
INTERLISP). 


21.6 Miscellaneous Tenex Functions 34 


fildirtfilegroup] filegroup is a TENEX file group descriptor, i.e., 

it can contain Stars, fildir returns a list of 
the files which match filegroup , a la the TENEX 
DIRECTORY command, e.g. (FILDIR (QUOTE *.C0M;0)). 


34 


All of the functions in section 21.5, except for raise , lowercase . and 
tenex . were written by J.W. Goodwin. 


loadavC ] 


getab[tablename 


erstr[ern] 


raise[flg] 


returns TENEX current load average as a floating 
point number (this number is the first of the 
three printed by the TENEX SYSTAT command). 

index;formatflg] tablename may be any of the tables mentioned 
with SYSGT and GETAB in JSYS manual; and can be an 
atom or string.^® index is the index into the 
table and must be a number. getab returns the 
value of that entry of that table as an integer 
unless formatflg =FLOATING. in which case the value 
is returned as a floating point number. For 
example, loadav is defined simply as: 

(GETAB (QUOTE SYSTAT) 12 (QUOTE FLOATING)). 
Similarly, the host number of the TENEX site you 
are logged in at may be obtained by 
(GETAB (QUOTE LHOSTN) 0). 

ern is an error number frora a JSYS fail return. 
ern sNIL means most recent error. erstr returns 
the TENEX error diagnostic as a string 
(from <SYSTEM>ERROR.MNEMONICS). 

rai$e[] informs TENEX that it should not raise 
lower case input, i.e., it is equivalent to 
logout[] @N0 RAISE, ©CONTINUE. raise[T] informs 
TENEX that it should raise. raise[T] is the 
initial setting. The value of raise is the 


36 


There are some tables in TENEX not documented in the JSYS manual, but getab 
works for these too if you should happen to hear about them. 




previous setting. 


36 

lowercase[flg] lowercase[T] performs raise[], sets lcaseflg to 

flg . and performs other internal modifications to 
inform DWIM and CL1SP that the user is running on 
a lowercase terminal. lowercase[] reverses the 
effect of lowercase[T]. The value of lowercase is 
its previous setting. lowercase is undoable. 

lowercase[T] also sets modeI33flg to NIL (see Section 17). Note that the user 
can be running on a lowercase terminal and still find it desirable to set 
model33flg to T if he thinks he is on a model 33, i.e. is used to running on 
one, and makes the typing errors associated with the keyboard layout on a model 
33. 

username[a] If a=NIL, returns login directory name; if a=T, 

returns connected directory name; if a is a 
number, username returns the user name 
corresponding to that user number. In all cases, 
the value is a string. 

usernumber[a] If a=NIL, returns login user number; if a=T, 

returns connected user number; if a is a literal 
atom or' string, usernumber returns the number of 
the corresponding user, or NIL if no such user 
exists. 


ra ^ se also sets raiseflg to flg so that the System can determine the 
raise-noraise state following sysin or reattaching to a detached Job, and 
restore the desired state. 
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Note: 


greeting (see Section 22) sets the variable username to the login user 


name, and firstname to the name used in the greeting. 

tenex[str] Starts up a lower EXEC (without a message) using 

subsys . and then unreads str, followed by "QUIT" 
(using bksysbuf . described in Section 14). For 
example, the LISPXMACRO SY which does a SYSTAT is 
implemented simply as TENEX["SY^"]. 


21.7 Printing Reentrant and Circular List Structures 

A reentrant list structure is one that contains more than one occurrence of the 
same (ea) structure. For example, tconc (Section 6) makes uses of reentrant 
list structure so that it does not have to search for the end of the list each 
time it is called. Thus, if x is a list of 3 elements, (ABC), being 
constructed by tconc , the reentrant list structure used by tconc for this 
purpose is: 



FIGURE 21-1 
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This structure would be printed by print as ((A B C) C). Note that print would 
produce the same output for the non-reentrant structure: 



FIGURE 21-2 


In other words, print does not indicate the fact that portions of the structure 
in Figure 21-1 are identical. Similarly, if print is applied to a circular 
list structure (a special type of reentrant structure) it will never terminate. 


For exatnple, if print is called on the structure: 



it will print an endless sequence of left parentheses, and if applied to: 

© 

FIGURE 21-4 

will print a left parenthesis followed by an endless sequence of A's. 


21.25 










The function circlprint described below produces output that will exactly 
describe the structure of any circular or reentrant list structure. 37 This 
output may be in either single or double-line formats. Below are a few 
examples of the expressions that circlprint would produce to describe the 
structures discussed above. 


expression in Figure 21-1: 

single-line: ((A B *1* C) {1}) 

double-line: ((A B C) . {1}) 

1 


expression in Figure 21-3: 

single-line: (*1* {1}) 

double-line: ({1}) 

1 


expression in Figure 21-4: 

single-line: (*1* A . {1}) 

double-line: (A . {1}) 

1 


37 


Circlprint and circlmaker were written by P.C. Jackson. 




The more complex structure: 



is printed as follows: 

single-line: <*2* (*1* {1} * 3 * {2> A *4* B . {3}) . (4>) 

double-line: ( ({1} {2} A B . {3}) . {4}) 

2 13 4 

In both forraats, the reentrant nodes in the list structure are labeled by 
numbers. (A reentrant node is one that has two or more pointers coming into 
it.) In the single-line format, the label is printed between asterisks at the 
beginning of the node (list or tail) that it identifies. In the double-line 
format, the label is printed below the beginning of the node it identifies. An 
occurrence of a reentrant node that has already been identifled is indicated by 
printing its label in brackets. 

circlprint[list;printflg;rlknt] prints an expression describing list . If 

printflg =NIL. double-line format is used, 
otherwise single-line format. circlprint first 
calls circlmark[list;rlknt], and then calls either 
rlprinl[list] or rlprin2[list], depending on the 
value of printflg (T or NIL, respectively). 
Finally, rlrestore[list] is called, which restores 
ilst to its unmarked state. Value is list. 
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circlmark[list;rlknt] 


rlprinl[list] 


rlprin2[list] 


rlrestoreClist] 

Note that the user can 
common substructures, < 
circlmark . followed by 

circlmaker[list] 


marks each reentrant node in list with a unique 
nuntber, starting at rlknt+1 (or 1, if rlknt is 
NIL). Value is (new) rlknt . 

Marking list physically alters it. However, the 
marking is performed undoably. In addition, list 
can always be restored by specifically calling 
rlrestore . 

prints an expression describing list in the 
single-line format. Does not restore list to its 
uncirclmarked state. list must previously have 
been circlmarked or an error is generated. 

same as rlprinl . except that the expression 
describing list is printed in the double-line 
f orimat. 

physically restores list to its original, unmarked 
state. 

mark and print several structures which together share 
J.g. several property lists, by making several calls to 
calls to rlprinl or rlprin2 . and finally to rlrestore . 

.list may contain labels and references following 
the convention used by circlprint for printing 
reentrant structures in single line format, e.g. 
(M* . {1}). circlmaker performs the necessary 
_rplaca *s and rplacd 's to make list correspond to 
the indicated structure. Value is (altered) list. 
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circlmakerl[list] 


Does the work for circlmaker . Uses free variables 
labeist and reflst . labeist is a list of dotted 
pairs of labels and corresponding nodes. reflst 
is a list of nodes containing references to labels 
not yet seen. Circlmaker operates by initializing 
labeist and reflst to NIL, and then calling 
circlmaker!. It generates an error if reflst is 
not NIL when circlmakerl returns. The user can 
call circlmakerl directly to "connect up" several 
structures that share common substructures, e.g. 
several property lists. 
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SECTION 22 


THE PROGRAMMIER'S ASSISTANT AND LISPX 1 

22.1 Introductlon 

This chapter describes one of the newer additions to INTERLISP: the 
programmer's assistant. The central idea of the programmer's assistant is that 
the user, rather than talking to a passive System which merely responds to each 
input and waits for the next, is instead addressing an active Intermedlary, 
namely his assistant. Normally, the assistant is invisible to the user, and 
simply carries out the user's requests. However, since the assistant remembers 
what the user has told him, the user can instruct him to repeat a particular 
Operation or sequence of operations, with possible modifications, or to undo 
the effect of certain specified operations. Like DWIM, the programmer's 
assistant is not implemented as a single function or group of functions, but is 
instead dispersed throughout much of INTERLISP.^ Like DWIM, the programmer's 
assistant embodies a philosophy and approach to System design whose ultimate 
goal is to construct a programming environment which would "cooperate" with the 
user in the development of his programs, and free him to concentrate more fully 
on the conceptual difficulties and Creative aspecis of the problem he is trying 
to solve. 


The programmer's assistant was designed and implemented by W. Teitelman. 
It is discussed in [Tei4], 


Some of the features of the programmer's assistant have been described 
elsewhere, e.g. the UNDO command in the editor, the file package, etc. 
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Example 


The following dialogue, taken firom an actual Session at the console, gives the 

flavor of the programmer's assistant facility in INTERLISP. The user is about 

\ 

to edit a function loadf , which contains several constructs of the form 
(PUTD FN2 (GETO FN1)). The user plans to replace each of these by equivalent 
MOVD expressions. 


-EDITF(LOADFF] 

=LOADF 
EDIT * 

*PP 

[LAMBDA (X Y) 

[COND 

((NULL (GETD (QUOTE READSAVE))) 
(PUTD (QUOTE READSAVE) 

(GETD (QUOTE READ] 
(PUTD (QUOTE READ) 

(GETD (QUOTE REED))) 
(NLSETQ (SETQ X (LOAD X Y))) 

(@UTD (QUOTE READ) 

(GETD (QUOTE READSAVE))) 

X] 


*F PUTD (1 MOVD) 

*3 (XTRR 2) 

= XTR 
*0P 
= 0 P 

(MOVD (QUOTE READSAVE) (QUOTE READ)) 
*(SW 2 3) 


[ 2 ] 

[3] 

[4] 

[5] 


At [1], the user begins to edit loadf. 3 At [2] the user finds PUTD and replaces 
it by MOVD. He then shifts context to the third subexpression, [3], extracts 
its second subexpression, and ascends one level [4] to print and result. The 
user now switches the second and third subexpression [5], thereby completing 


We prefer to consider the programmer's assistant as the moving force behind 
this type of spelling correction (even though the program that does the 
work is part of the DWIM package). Whereas correcting 0PRINT to PRINT, or 
XTRR to XTR does not require any Information about what this user is doing, 
correcting LOADFF to LOADF clearly required noticing when this user defined 
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the Operation for this PUTD. Note that up to this point, the user has not 
directly addressed the assistant. ' The user now requests that the assistant 
print out the operations that the user has performed, [6], and the user then 
instructs the assistant to REDO FROM F, [7], meaning repeat the entire sequence 
of operations 15 through 20. The user then prints the current expression, and 
observes that the second PUTD has now been successfully transformed. 


*?? FROM F [6] 

15. *F PUTD 

16. *(1 MOVD) 

17. *3 

is! *( XTR 2) 

19. *0 

20. *(SW 2 3) 

*REDO FROM F [7] 

*P 

(MOVD (QUOTE REED) (QUOTE READ)) 

* 


The user now asks the assistant to replay the last three Steps to hira, [8]. 
Note that the entire REDO FROM F Operation is now grouped together as a single 
unit, [9], since it corresponded to a single user request. Therefore, the user 
can instruct the assistant to carry out the same Operation again by simply 
saying REDO. This time a problem is encountered [10], so the user asks the 
assistant what it was trying to do [li]. 


*?? 

FROM -3 

[8] 

19. 

*0 


20 . 

*(SW 2 3) 


21 . 

REDO FROM F 

[9] 


*F PUTD 
*(1 MOVD) 

*3 

*(XTR 2) 

*0 

*(SW 2 3) 

*REDO 

PUTD ? [10] 

*?? -1 [ 11 ] 


22. REDO 
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*F PUTD 
*(1 MOVD) 
*3 

*(XTR 2) 
*0 


The user then realizes the problem is that the third PUTO is misspelled in the 
definition of LOADF (see page 22.2). He therefore instructs the assistant to 
USE @UTD FOR PUTD, [12], and th® Operation now concludes successfully. 


*USE @UTD FOR PUTD 
*P 

(MOVD (QUOTE READSAVE) (QUOTE READ)) 

*t PP 

[LAMBDA (X Y) 

[COND 

((NULL (GETD (QUOTE READSAVE))) 
(MOVD (QUOTE READ) 

(QUOTE READSAVE] 

(MOVD (QUOTE REED) 

(QUOTE READ)) 

(NLSETQ (SETQ X (LOAD X Y))) 

(MOVD (QUOTE READSAVE) 

(QUOTE READ)) 

X] 

*OK 

LOADF 


An important point to note here is that while the user could have defined a 
macro to execute this Operation, the Operation is sufficiently complicated that 
he would want to try out the individual Steps before atterepting to combine 
them. At this point, he would already have executed the Operation once. Then 
he would have to type in the Steps again to define them as a macro, at which 
point the Operation would only be repeated once reore before failing. Then the 
user would have to repair the macro, or eise change 0UTD to PUTD by hand so 
that his macro would work correctly. It is far reore natural to decide öfter 
trymg a series of operations whether or not one wants them repeated or 
forgotten. In addition, frequently the user will think that the operation(s) 
in question will never need be repeated, and only discover afterwards that he 
is mistaken, as occurs when the Operation was incorrect, but salvageable: 
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*p 

(LAMBDA (STR FLGCQ VRB) **COMMENT** (PROG & & LP1 & LP2 & &)) 
*-l -1 P 

(RETURN (COND &)) 

*(-2 ((EQ BB (QUOTE OUT)) BB] [1] 

*P 

(RETURN (& BB) (COND &)) [2] 

*UNDO 

(-2 --) UNDONE 
*2 P 

(COND (EXPANS & & T)) 

*REDO EQ 
*P 

(COND (& BB) (EXPANS & & T) 

* 


Here the Operation was correct, [1]. but the context in which it was executed, 
[2], was wrong. 


This example also illustrates one of the most useful functions of the 
programmer’s assistant: its UNDO capability. In most Systems, if a user 
suspected that a disaster might result from a particular Operation, e.g. an 
untested program running wild and chewing up a complex data structure, he would 
prepare for this contingency by saving the state of part or all of his 
environment before attempting the Operation. If anything went wrong, he would 
then back up and Start over. However, saving/dumping operations are usually 
expensive and time consuming, especially compared to a short computation, and 
are therefore not performed that frequently, and of course there is always the' 
case when diaster strikes as a result of a 'debugged' or at least innocuous 
Operation, as shown in the following example: 


(X) (REMPROP X (QUOTE MORPH] [I] 

m 

[3] 


-(MAPC ELTS (FUNCTION (LAMBDA 

NIL 

♦-UNDO 

MAPC UNDONE. 

*-USE ELEMENTS FOR ELTS 
NIL 


The user types an expression which removes the property MORPH from every member 
of the list ELTS [i], and then realizes that he meant to remove that property 
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only from those members of the list ELEMENTS, a much shorter list. In other 
words, he has deleted a lot of information that he actually wants saved. He 
therefore simply reverses the effect of the MAPC by typing UNDO [2], and then 
does what he intended via the USE command [3], 


22.2 OverView 

The programmer's assistant facility is built around a memory structure called 
the history list.' The history list is a list of the information associated 
with each of the individual 'events' that have occurred in the System, where 
each event corresponds to one user input. 4 For example, (XTR 2) ([3] on page 
22.2) is a single event, while REDO FROM F ([7] on page 22.3) is also a single 
event, although the latter includes executing the Operation (XTR 2), as well as 
several others. 


Associated with each event on the history list is its input and its value, plus 
other optional information such as side-effects, formatting information, etc. 
If the event corresponds to a history command, e.g. REDO FROM F, the input 
corresponds to what the user would have had to type to execute the same 
operation(s), although the user's actual input, i.e. the history command, is 
saved in Order to clarify the printout of that event ([9] on page 22.3). Note 

that if a history command event combines several events, it will have more than 
one value: 


4 


For various reasons, there are two history lists: one for the editor, and 
one for lispx, which processes inputs to evalqt and break , see page 22.44. 




-(LOG (ANTILOG 4)) 

4.0 

-USE 4.0 40 400 FOR 4 

4.0 

40.0 

ARG NOT IN RANGE 
400 

-USE -40.0 -4.00007 -19. 

-40.0 

-4.00007 

-19.0 

-USE LOG ANTILOG FOR ANTILOG LOG IN -2 AND -1 
4.0 
40.0 
400.0 
4.00007 
19.0 
-?? 

4. USE LOG ANTILOG FOR ANTILOG LOG IN -2 -1 
-(ANTILOG (LOG 4.0)) 

4.0 

-(ANTILOG (LOG 40)) 

40.0 

-(ANTILOG (LOG 400)) 

400.0 

-(ANTILOG (LOG -40.0)) 

40.0 

-(ANTILOG (LOG -4.00007)) 

4.00007 

-(ANTILOG (LOG -19.0)) 

19.0 

3. USE -40.0 -4.00007 -19.0 
-(LOG (ANTILOG -40.0)) 

-40.0 

-(LOG (ANTILOG -4.00007)) 

-4.00007 

-(LOG (ANTILOG -19.0)) 

-19.0 

2. USE 4.0 40 400 FOR 4 
-(LOG (ANTILOG 4.0)) 

4.0 

(LOG (ANTILOG 40.0) 

40.0 

-(LOG (ANTILOG 400)) 

1. -(LOG (ANTILOG 4)) 

4.0 


As new events oceur, existing events are aged, and the oldest event is 
'forgotten.' For efficiency, the storage used to represent the forgotten event 
is cannibalized and reused in the representation of the new event, so the 
history list is actually a ring buffer. The size of this ring buffer is a 
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System Parameter called the 'time-slice.' ö Larger time-slices enable longer 
'memory spans,' but tie up correspondingly greater amounts of storage. Since 
the user seldom needs really 'ancient history,' and a NAME and RETRIEVE 
facility is provided for saving and remembering selected events, a relatively 
small time slice such as 30 events is more than adequate, although some users 
prefer to set the time slice as large as 100 events. 

Events on the history list can be referenced ln a number of ways. The output 
on page 22.9 shows a printout; of a history list with time-slice 16. The 
numbers printed at the left of the page are the event numbers. More recent 
events have higher numbers; the most recent event is event number 52, the 
oldest and about-to-be-forgotten event is number 37 . 6 At this point in time, 
the user can reference event number 51. RECOMPILE(EDIT), by its event nurober. 
51; its relative Position, -2 (because it occurred two events back from the 
current time), or by a 'description' of its input, e.g. (RECOMPILE (EDIT)), or 
(& (EDIT)), or even just EDIT. As new events occur, existing events retain 
their absolute event numbers, although their relative positions change. 

Similarly, descriptor references may require more precision to refer to an 
older event. For example, the description RECOMPILE would have sufficed to 
refer to event 51 had event 52, also containing a RECOMPILE, not intervened. 
Event specification will be described in detail later. 


6 


Initially 30 
changeslice . 


events. 
page 22.54 


The time-slice can be changed with the function 


6 


SvSn'!i!mber nt l "Tlf' 1°/. ‘«-“T,“ 11 * S 100 ’ the next cvent ” U1 bo 

occurs ät th» n'.v, V . 1S oreator than 100, the 'roll-over' 

occurs at the next highest hundred, so that at no time will two event« ovar - 

th ? r sa ™ "“»»or. For example, If the Um. slice l, S.even^ 

number 1 follows event number 200.) event 


22.8 




-?? 


52. ... HIST UNDO 
-RECOMPILE(HIST) 

HIST.COM 

-RECOMPILE(UNDO) 

UNDO.COM 

51. -RECOMPILE(EDIT) 

EDIT.COM 
50. -LOGOUT] 

49. -MAKEFILES] 

(EDIT UNDO HIST) 

48. -EDITF(UNDOLISPX) 

UNDOLISPX 
47. REDO GETD 
-GETD(FIE) 

(LAMBDA (X) (MAPC X (F/L (PRINT X)))) 

46. -UNDO 
FIE 

45. -GETD(FIE) 

(LAMBDA (X) (MAPC X (FUNCTION (LAMBDA (X) (PRINT X))))) 
44. -FIE] 

NIL 

43. -DEFINEQ((FIE (LAMBDA (X) (MAPC X (F/L (PRINT X)))))) 
(FIE) 

42. REDO GETD 
-GETD(FIE) 

(LAMBDA (Y) Y) 

41. -UNDO 
MOVD 

40. REDO GETD 
-GETD(FIE) 

(LAMBDA (X) X) 

39. -MOVD(FOO FIE) 

FIE 

38. -DEFINEQ((FOO (LAMBDA (X) X))) 

(FOO) 

37. -GETD(FIE) 

(LAMBDA (Y) Y) 


The most common interaction with the programmer's assistant occurs at the top 
leyel evaiqt, or in a break, where the user types in expressions for 
evaluation, and sees the values printed out. In this mode, the assistant acts 
much like a Standard LISP evaiqt , except that before attempting to evaluate an 
input, the assistant first Stores it in a new entry on the history list. Thus 
if the Operation is aborted or causes an error, the input is still saved and 


available for modification and/or reexecution. The assistant also notes new 
functions and variables to be added to its spelling lists to enable future 
corrections. Then the assistant executes the computation (i.e. evaluates the 
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form or applies the function to its arguments), saves the value in the entry on 
the history list corresponding to the input, and prints the result, followed by 
a prompt character to indicate it is again ready for input. 7 

If the input typed by the user is recognized as a history command, the 
assistant takes special action. Commands such as UNDO, ??, NAME, and RETRIEVE 
are immediately performed. Commands that involved reexecution of previous 
inputs, e.g. REOO and USE, are achieved by computing the corresponding input 
expression(s) and then unreading them, The effect of this unreading Operation 
is to cause the assistant's input routine, lispxread . to act exactly as though 
these expression were typed in by the user. Except for the fact that these 
inputs are not saved on new and separate entries on the history list, but 
associated with the history command that generated them, they are processed 
exactly as though they had been typed. 

The advantage of this Implementation is that it makes the programmer's 
assistant a callable facility for other System packages as well as for users 
with their own private executives. For example, breakl accept user inputs, 
recognizes and executes certain break commands and macros, and interprets 
anything eise as INTERLISP expressions for evaluation. To interface breakl 
with the programmer's assistant required three small modifications to breakl : 
(1) input was to be obtained via lispxread instead of read ; (2) instead of 
calling eval or apply directly, breakl was to give those inputs it could not 


The function that accepts a user input, saves the input on the history 
list, performs the indicated computation or history command, and prints the 
result, is lispx■ li spx is called by evalqt and breakl . and in most cases, 
is synonymous with 'programmer's assistant.' However, for various reasons, 
the editor saves its own inputs on a history list, carries out the 
requests, i.e. edit commands, and even handles undoing independently of 

® ditor ° nl y calls lispx to execute a history command, such as 
kldo, USE, etc. Therefore we use the term assistant (loosely) when the 
discussion applies to featuros shared by evalqt . break and the editor, and 
tne term lispx when we are discussing the specific function. 
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interpret to lispx , and (3) any commands or macros handled by breakl , i.e. not 


given to lispx , were to be stored on the history list by breakl by calling the 
function historysave , a part of the assistant package. 

Thus when the user typed in a break command, the command would be stored on the 
history list as a result of (3). If the user typed in an expression for 
evaluation, it would be evaluated as before, with the expression and its value 
both saved on the history list as a result of (Z). Now if the user entered a 
break and typed three inputs: EVAL, (CAR !VALUE), and OK, at the next break, he 
could achieve the same effect by typing REDO FROM EVAL. This would cause the 
assistant to unread the three expressions EVAL, (CAR »VALUE), and OK. Because 
of (1), the next ' input" seen by breakl would then be EVAL, which breakl would 
interpret. Next would come (CAR »VALUE), which would be given to lispx to 
evaluate, and then would come OK, which breakl would again process. Thus, by 
virtue of unreading , history operations will work aven for those inputs not 
interpretable by lispx , in this case, EVAL and OK. 

The net effect of this implementation of the programmer's assistant is to 
provide a facility which is easily inserted at many levels, and embodies a 
consistent set of commands and conventions for talking about past events. This 
gives the user the subjective feeling that a single agent is watching 
everything he does and says, and is always available to help. 


22.3 Event Specification 

All history commands use the same conventions and syntax for indicating which 
event or events on the history list the command refers to, even though 
different commands may be concerned with different aspects of the corresponding 
event(s), e.g. side-effects, value, input, etc. Therefore, before discussing 
the various history commands in the next section, this section describes the 



types of event speclfications currently ioplepented. All examples refer to the 
history list on page 22.9. 


AP evept address Ideptlfies ope evept „„ the history list. It copsists of . 
sequence of ■conmapds' for movipg ap Laginary Cursor up or dowp the history 
list. much in the mapper of the argumepts te the 8 commapd in break (see 
Sectiop iS). The evept ideptified is the ope •upder' the imagip.ry Cursor whep 
there are „o mr. commapds. (If apy coemapd falls. error is geperat.d apd 
the history command is aborted.) 


The commands are interpreted as follows: 


n (n > 1) 


n (n < -l) 
♦-atom 


pat 9 


F 


move forward n events, 
increasing event number. 
'command,' n speclfies the 
n. 


i.e. in direction of 
If given as the first 
event with event number 


move backward -n events. 


Ätcir cn 


odCKwara tor an event 


wnose junctton 


matches atom (i.e. for apply format only) e a 
whereas FIE would refer to event 47, *-FIe’ would 

•«»« Si.il.rly, EDS" would specify 

event 51, whereas »-EOS event 48. 


search backward for 
an expression that 
Section 9. 


an event whose input contains 
matches pat as described in 


f*®f rch ls to go forward instead of backward, 

be^nl 1 wi^h a i a ^? 8 / irSt i!. COmmand '' next SGarc h 

li?tl 1 St * ,^®:° ldest * eve °t on history 

MAKEFILES 4- RFrnMDT L . A r Mß0 r r6ferS t0 6Vent 30 i 
nAKtrILE5 «• RECOMPILE re fers to event 51. 


next object is to be 
what it is, e.g. 
containing a -2. 


searched for, regardless of 
F -2 looks for an event 


pext search ls to look at »olaes, instead of 


i.e. EDalt-mode. -- 

described above. 0 * 50 except for and which are interpreted as 
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inputs, e.g. =UNDO refers to event 49; 45 = FIE 
refers to event 43; ♦* = LAMBDA refers to event 37. 

specifies the event last located. 

Note: each search skips the current event, i.e. each command always moves the 
Cursor. For example, if F00 refers to event n, F00 FIE will refer to some 
event before event n, even if there is a FIE in event n. 


An event specification specifies. one or more events: 


FROM #1 THRU #2 the sequence of events frora the 

#1 THRU #2 event with address #1 through event with address 

*2, e.g. FROM GETD THRU 49 specifies events 47, 
48, and 49. #1 can be more recent than #2, e.g. 

FROM 49 THRU GETP specifies events 49, 48, and 47 
(note reversal of order). 


FROM #1 TO #2 Same as THRU but does not include event #2. 

#1 TO #2 


FROM #1 


Same as FROM #1 THRU -1, e.g. FROM 49 specifies 
events 49, 50, 51, and 52. 


THRU #2 Same as FROM -1 THRU #2, e.g. THRU 49 specifies 

events 52, 51, 50, and 49. Note reversal of 

order. 


TO 


Same as FROM -1 TO #2. 


#1 AND #2 AND ... AND #n i.e. a sequence of event addresses separated by 

AND's,.e,g. FROM 47 TO LOGOUT would be equivalent 
to 47 AND 48 AND MAKEFILES. 

empty i.e, nothing specified, same as -1, unless. .last 

event was an UNDO, in which case same as -2. 11 


i.e. the symbol #1 corresponds to all words between FROM and THRU in the 
event specification, and #2 to all words from THRU to the end of the event 
specification. For example, in FROM FOO 2 THRU FIE -1, #1 is (FOO 2), and 
#2 is (FIE -1). 


For example, if the user types (NCÖNC FOO FIE), he can then type UNDO, 
followed by USE NCONC1. 
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nsfers to the events named by atom, via the NAME 
command, page 22.25 e.g., if the user names a 
particular event or events FOO, 0 FOO specifies 
those events. 

I is an event specification and interpreted as 
above, but with respect to the archived history 
list, as specified on page 22.27. 


22.4 History Commands 


All history 
Section 14, 


commands can he input as either lists, 
and also page 22.47). 


or as lines (see readline 


I denote a ü event specification. Unless specified otherwise ä 
onntted is the same as i *-l, e.g. REDO and REDO -1 are the same OZne ™ tse ' * 


REDO t 


USE vars FOR args IN t 


USE varsj FOR argsj AND 


redoes the event or events specified by t, 
REOO FROM -3 redoes the last three events. 


e.g. 


substitutes vars for args in i, and redoes the 
result, e.g. 

USE LOG ANTILOG FOR ANTILOG LOG IN -2 AND -1. 
Substitution is done by esubst . Section 9, and is 
carried out as described below. 


ANU vars FOR args IN t 
More general forra n of USE command 
of Substitution algorithm below. 


See descriptlon 


Every USE command involves three pieces of Information: the variables to be 
substituted. the arguments to be substituted for, and an event specification, 
which defines the expression (input) in which the Substitution takes place. 12 


If «Tfls are omitted, i.e. the form of the command is USE vars IN t, or just USE 
vars (which is equivalent to USE vars IN -1), and the event referred to was 
itself a USE command. the arguments and expression substituted into are the 
same as for the indicated USE command. In effect, this USE command is thus a 


12 


JSriahL^ 0mm a nd iS ParSed by a sma11 flnite state Parsertö’distingüish'the 

be parsed c^re^SJ?" 15 ' F ° r eXample ’ USE F0R F0R AN0 AND AND FOR will 
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continuation of the previous USE command. For example, on page 22.7, when the 

user types (LOG (ANTILOG 4)), followed by USE 4.0 40 400 FOR 4, followed by 

USE -40.0 -4.00007 -19., the latter command is äquivalent to 
USE -40.0 -4.00007 -19. FOR 4 IN -2. 

If args are omitted and the event referred to was not a USE command, 
Substitution is for the operator in that command, i.e. if a lispx input, the 
name of the function, if an edit command, the name of the command. For example 
ARGLIST(FF) followed by USE CALLS is equivalent to USE CALLS FOR ARGLIST. 

If t is omitted, but args are specified, the first member of args is used for 
t, e.g. USE PUTO FOR @UTD is equivalent to USE PUT0 FOR @UTD IN F @UTD. 13 

If the USE command has the same number of expressions as arguments, the 
Substitution procedure is straightforward, 14 i.e. USE X Y FOR U V means 

Substitute X for U and Y for V, and is equivalent to USE X FOR U AND Y FOR V. 

However, the USE command also permits distributive substitutions, i.e. 
substituting several expressions for the same argument. For example, 
USE ABC FOR X means first substitute A for X then substitute B for X (in a 

new copy of the expression), then substitute C for X. The effect is the same 

as three separate USE cömmands. Similarly, USE A B C FOR D AND X Y Z FOR W is 

equivalent to USE A FOR D AND X FOR W, followed by USE B FOR D AND Y FOR W, 


The F is inserted to handle correctly the case where the first member of 
args is a number, e.g. USE 4.0 4.0 400 FOR 4. Obviously the user means find 
the event containing a 4 and perform the indicated substitutions, whereas 
USE 4.0 40 400 FOR 4 IN 4 would mean perform the substitutions in event 
number 4. 


Except when one of the arguments and one of the variables are the same, 
e.g. USE X Y FOR Y X, or USE X FOR Y AND Y FOR X. This Situation is noticed 
when parsing the command, and handled correctly. 
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also 


followed by USE C FOR D AND Z FOR W. USE A B C FOR D AND X FOR Y 16 
corresponds to three substitions, the first with A for D and X for Y, the 
second with B for D, and X for Y, and the third with C for D, and again X for 
Y. However, USE A B C FOR D AND X Y FOR Z is ambiguous and will cause an 
error. Essentially, the USE coramand operates by proceeding from left to right 
handling each 'AND' separately. Whenever the number of expressions exceeds the 
number of expressions available,, the expressions multiply.* 0 


puts the user in the editor looking at a copy of 
the input(s) for t, Whenever the user exits via, 
OK, the result is unread and reexecuted exactly as 
with REDO. 


FIX is provided for those cases when the modifications to the input(s) are not 
of the type that can be specified by USE, i.e. not substitutions. For example: 


MDEFINEQ F00 (LAMBDA (X) (FIXSPELL SPELLINGS2 X 70] 

INCORRECT DEFINING FORM 
FOO 

«-FIX 

EDIT 

*P 

(DEFINEQ FOO (LAMBDA & &)) 

* (LI 2) 

OK 

(FOO) 


The user can also specify the edit command(s) to lispx , by typing * followed by 
the command(s) after the event specification, e.g. FIX - (LI 2). In this case, 
the editor will not type EDIT, or wait for an OK after executing the commands. 


15 


or USE X FOR Y AND A B C FOR 0. 


16 


Thus USE A B C D FOR E F raeans Substitute A for E at the sarae time as 
substituting B for F, then in another copy of the indicated expression, 

5s E b “rF t S R C E i° N olD a "o R I> F . f0r F ‘ NOt ° th “ thlS 15 aU ° *• 
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Implementation of REPO, USE, and FIX 

The input portion of an event is represented internally on the history list 
simply as a linear sequence of the expressions which were read. For example, 
an input in apply format is a list Consisting of two expressions, an an input 
in eval format is a list of just one expression.^ Thus if the user wishes to 
convert an input in apply format to eval format, he simply moves the function 
name inside of the argument list: 


-MAPC(FOOFNS (F/L (AND (EXPRP X) (PRINT X] 
NIL 

-EXPRP(FOOl) 

T 

-FIX MAPC 

EDIT 

*P 

(MAPC (FOOFNS &)) 

"'(BO 2) 

*(LI 1) 

*P 

((MAPC FOOFNS &)) 

OK 

FOOl 

FIE2 

FUM 

NIL 


By simply Converting the input from two expressions to one expression, the 
desired effect, that of mapping down the list that was the value of foofns , was 
achieved. 

REOO, USE, and FIX all operate by obtaining the input portion of the 
corresponding event, Processing the input (except for REDO), and then storing 


For inputs in eval format, i.e. single expressions, FIX calls the editor so 
that the current expression is that input, rather than the list consisting 
of that input - see the example on the preceding page. However, the entire 
list is actually being edited. Thus if the user typed t P in that example, 
he would see ((DEFINEQ F00 &)). 
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it on the history list as the input portion of a new event. The history 
command completes operating by simply unreading the input. When the input is 
subsequently ’reread', the event which already contains the input will be 
retrieved and used for recording the value of the Operation, saving side- 
effects, etc., instead of creating a new event. Otherwise the input is treated 
exactly the same as if it had been typed in directly. 

If t specifies more than one event, the inputs for the corresponding events are 
simply concatenated into a linear sequence, with special markers representing 
carriage returns inserted between each input to indicate where new lines 
start. The result of this concatenation is then treated as the input referred 
to by €. For example, when the user typed REDO FROM F ([7] on page 22.3) the 
inputs for the corresponding six events were concatenated to produce 
(F PUTO #0 (1 MOVD) #0 3 #0 (XTR 2) #0 0 #0 (SW 2 3)). Similarly, if the user 
had typed USE @UTD FOR PUTO IN K5 THRU 20, (F PUTO #0 (i MOVD) #0 3 #0 (XTR 2) 
#0 0 #0 (SW 2 3)) would have been constructed, and then 0UTD substituted for 
PUTO throughout it. 

The same convention is used for representing multiple inputs when a USE command 
involves sequential substitutions. For example, if the user types GETD(FOO) 
and then USE FIE FUM FOR FOO, the input sequence that will be constructed is 
(GETD (FIE) #0 GETO (FUM)), which is the result of substituting FIE for FOO in 
(GETO (FOO)) concatenated with the result of substituting FUM for FOO in 
(GETO (FOO)). 

A 

Once such a multiple input is constructed, it is treated exactly the same as a 
single input, i.e. the input sequence is recorded in a new event, and then 


— — - — — - — - — — ------ 

The value of (VAG 0) is currently used to represent a carriage return on 
the grounds that it cannot ibe typed in by the user, and thus cannot cause 
ambiguities. 
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unread, exactly as described above. When the inputs are ’reread,' the 'pseudo- 
carriago-returns 1 are treated by lispxread and readline exactly as real 
carriage returns, i.e. they serve to distinguish between apply and eval formats 
on inputs to lispx , and to delimit line comraands to the editor. Note that once 
this multiple input has been entered as the input portion of a new event, that 
event can be treated exactly the same as one resulting from type in. In other 
words, no special checks have to be made when referencing an event, to see if 
it is simple or multiple. Thus, when the user types REDO following 
REDO FROM F, ([10] page 22.3) REDO does not even notice that the input 
retrieved from the previous event is (F PUTD #0 ... (SW 2 3)) i.e. a multiple 
input, it simply records this input and unreads it. Similarly, when the user 
then types USE @UTD FOR PUTD on this multiple input, the USE command simply 
carries out the Substitution, and the result is the same as though the user had 
typed USE @UTD FOR PUTD IN 15 THRU 20. 

In sum, this implementation permits t to refer to a single simple event, or to 
several events, or to a single event originally constructed from several events 
(which may themselves have been multiple input events, etc.) without having to 
treat each case separately. 

History Commands Applied to History Commands 

Since history commands themselves do not appear in the input portion of events 
(although they are stored elsewhere in the event), they do not interfere with 
or affect the searching operations of event specifications. In effect, history 
commands are invisible to event specifications . 19 As a result, history commands 
themselves cannot be recovered for execution in the normal way. For example, 

7p ----- ----- — 
With the exception described below under "History Commands that Fall". 


22.19 




if the user types USE ABC FOB 0 and follows this with USE E FOR 0, he will 
not produce the effect of USE ABC FOR E (but instead will simply cause E to 
be substituted for D in the last event containing a 0). To produce this 
effect, i.e. USE ABC FOR E, the user should type USE D FOR E IN USE. The 
appearance of the word REDO, USE or FIX in an event address specifies a search 
for the corresponding history command. (For example, the user can also type 
UNDO REDO.) It also specifies fchat the text of the history command itself be 
treated as though it were the input. However, the user must remember that the 
context in which a history command is reexecuted is' that of the current 
history, not the original context. For example, if the user types 
USE FOO FOR FIE IN -1, and then later types REDO USE, the -1 will refer to the 
event before the REDO, not before the USE. Sirailarly, if the user types 
REDO REDO followed by REDO REDO, he would cause an infinite loop, except for 
the fact that a special check detects this type of Situation. 


History Commands that Fall 

The one exception to the Statement that 'history commands are invisible to 
event specifications' occurs whein a history command falls to produce any input. 
For example, suppose the user types USE LOG FOR ANTILOG AND ANTILOG FOR LOGG, 
causing lispx to respond LOGG ?. Since the USE command did not produce any 
input, the user can repair it by typing USE LOG FOR LOGG (i.e. does not have to 
specify IN USE). This latter USE command will invoke a search for LOGG, which 
will find the bad USE command. lispx then performs the indlcated Substitution, 
and unreads USE LOG FOR ANTILOG AND ANTILOG FOR LOG. In turn, this USE command 
invokes a search for ANTILOG, which, because it was not typed in but reread, 
ignores the bad USE command which was found by the earlier search for LOGG, and 
which is still on the history list. In other words, history commands that fail 
to produce input are uisible to searches arising from event specifications 
typed in by the user, but not to secondary event specif ications . 
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In addition, if the most recent event is a history command which failed to 
produce input, a secondary event specification will effectively back up the 
history list one event so that relative event numbers for that ovont 
specification will not count the bad history command. For example, suppose the 
user types USE LOG FOR ANTILOG AND ANTILOG FOR LOGG IN -2 AND -1, and after 
lis^x types LOGG ?, the user types USE LOG FOR LOGG. He thus causes the command 
USE LOG FOR ANTILOG AND ANTILOG FOR LOG IN -2 AND -1 to be constructed and 
unread. In the normal case, -1 would refer to the last event, i.e. the 'bad' 
USE command, and -2 to the event before it. However, in this case, -1 refers 
to the event before the bad USE command, and the -2 to the event before that. 
In short, the caveat that "the user must remember that the context in which a 
history command is reexecuted is that of the current history, not the original 
context" does not apply if the correction is performed immediately. 

More History Commands 

RETRY t similar to REDO except sets helpclock so that any 

errors that occur while executing t will cause 
breaks. 

••• vars similar to USE except substitutes for the (first) 

Operand. 

For example, EXPRP(FOO) followed by ... FIE FUM is equivalent to 

USE FIE FUM FOR FOO. See also event 52 on page 22.9. 

?? i prints history list. If t is omitted, ?? prints 

the entire history list, beginning with most 
recent events. Otherwise ?? prints only those 
events specif ied in t (and in the order 
specified), e.g. ?? -1, ?? 10 THRU 15, etc. 

?? commands are not entered on the history list, and so do not affect relative 
event numbers. In other words, an event specification of >1 typed following a 
?? command will refer to the event immediately preceding the ?? command. 
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?? will print the history commarid, if any, associated with each event as shown 
at [9] on page 22.3 and page ZZ.7. Note that these history commands are not 
preceded by prompt characters, indicating they are not stored as input. 

?? prints multiple input events under one event number (see page 22.7). 


Since events are initially stored on the history list with their value field 
equal to bell (control-G), if an Operation falls to complete for any reason, 
e.g. causes an error, is aborted, etc., its 'value 1 will be bell. This is the 
explanation for the blank line in event 2, page 22.7, and event 50, page 22.9. 

?? is implemented via the function printhistorv . page 22.60, which can also be 
called directly by the user. 


* 


ft 


ft 


undoes the side effects of the specified events. 
For each event undone, UNDO prints a message: e.g. 
RPLACA UNDONE, REDO UNDONE etc. If nothing is 
undone because nothing was saved, UNDO types 
NOTHING SAVED. If nothing was undone because the 
event(s) were already undone, UNDO types 
ALREADY UNDONE. If i is empty, UNDO searches back 
for the last event that contained side effects, 
was not undone, and itself was not an UNDO 


20 


REDO, RETRY, U5E, .... and FIX commands, i.e. those commands that reexecute 
previous events, are not stored as inputs, because the input portion for 
^ese events are the expressions to be 'reread*. The history commands 
UNDO, NAME, RETRIEVE, BEFORE, and AFTER are recorded as inputs, and 7? 
prints them exactly as they were typed. 
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command. 


21 22 

UNDO t : Xj ... ^ Each x. refers to a tnessage printed by DWIM in tho 

event(s) specifiod by t. The side effects of tho 
corresponding DWIM corrections, and only those 
side effects, are undone. 


For example, if the message PRINTT [IN F00] -> PRINT wäre printed, 
UNDO : PRINTT or UNDÖ : PRINT would undo the correction.^ 


* 


* 


$ is a special form of the USE command for conveniently specifying c haracter 
substitutions. In addition, it has a number of useful default options in 
connection with events that involve errors. 


$ x FOR y 


equivalent to USE Sx$ FOR $y$ 


For example, the user types MOVD(FOO FOOSAVE T), he can then type S FIE FOR FOO 
to perform MOVD(FIE FIESAVE T). Note that USE FIE FOR FOO would perform 
MOVD(FIE FOOSAVE T). 


21 ~ .------------- 

Note that the user can undo UNDO commands themselves by specifying the 

corresponding event address, e.g. UNDO -3 or UNDO UNDO. 


22 

UNDOing events in the reverse Order from which they were executed is 
guaranteed to restore all pointers correctly, e.g. to undo all effects of 
last five events, perform UNDO THRU -5, not UNDO FROM -5. Undoing out of 
order may have unforseen effects if the operations are dependent. For 
example, if the user performed (NC0NC1 FOO FIE), followed by 
(NCONC1 FOO FUM), and then undoes the (NCONC1 FOO FIE), he will also have 
undone the (NCONC1 FOO FUM). If he then undoes the (NCONC1 FOO FUM), he 
will cause the FIE to reappear, by virtue of restoring FOO to its state 
before the execution of (NCONC1 FOO FUM). For more details, see page 
22 . 42 . 


23 

Some portions of the messages printed by DWIM are strings, e.g. the message 
FOO UNSAVED is printed by printing FOO and then " UNSAVED". Therefore, if 
the user types UNDO : UNSAVED, the DWIM correction will not be found. He 
should instead type UNDO : FOO or UNDO : SUNSAVEDS (alt-modeUNSAVEDalt- 
mode, see R command in editor, section 9). 
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An abbreviated form of $ is avaLlable: 

® y x saine as $ x FOR y, i.e. y's are changed to x's. 

can also be written as $ y TO x, $ y = x, or 
S y -> x. 


S does event locatlon the sarne as the USE command, i.e. if IN — is not 
specified, it searches for y. 24 

After S finds the event, it looks to see' if an error was involved in that 

25 

event, and if the indicated character Substitution can be performed in the 
offender. If so, S assutnes the Substitution refers to the offender, perforras 
the Substitution, and then substitutes the result for the offender throughout. 
For example, the user types (PRETTYOEF FOOFNS 'F00 FOOVARS) causing a 
U.B.A. FOOOV/ARS error message. The user can now type S 00 0, which will change 
FOOOVARS to FOOVARS, but not change FOOFNS or FOO. 


If an error did occur in the specified event, the user can also omit specifying 
y, in which case the offender is used. Thus, the user could have corrected the 
above example by simply typing S FOOVARS. Similarly, if the user types 
LOAD(PRSTRUC PROP), causing the error FILE NOT FOUND PRSTRUC, he can request 
the file to be loaded from LISP*s directory by simply typing S <LISP>J. Since 
esubst is used for substituting, this is equivalent to performing 
(R PRSTRUC <LISP>$) on the event, and therefore replaces PRSTRUC by 
<LISP>PRSTRUC (see Section 9). Note also the usefulness of $ •$, meaning: put 
a ’ in front of the offender. 


24 

However, 
time. 


unlike USE, $ can only be used to specify one Substitution at a 


25 


Whenever 
offender, 
under the 


an error occurs, the object of the error message, called the 
is automatically saved on that event's entry in the history list 
property ERROR. 3 * 
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$ also works for events in the editor. For example, if the user types 
(MOVE COND 33 2 TO BEFORE HERE), and editor types 33 ?, the user can type $ 3, 
causing 3 to be substituted for 33 in the MOVE command. 

Finally, the user can omit both x and y. This specifies that two alt-modes be 
packed onto the end of the offender, and the result substituted throughout the 
specified event. For example, suppose the user types to the editor 
(MOVE 3 2 TO AFTER CONDD 1), and gets the error message CONDD ?. because the 
find command failed to find CONDD. $ will cause the edit command 
(MOVE 3 2 TO AFTER CONDDSS 1) to be executed, which will search for an atom 
that is "close" to CONDD in the sense used by the spelling corrector (see 
pattern type 6b, Section 9) 26 

Note that $ never searches for an error. Thus, if the user types 
LOAD(PRSTRUC PROP) causing a FILE NOT FOUND error, types CLOSEALLO, and then 
types $ <LISP>$, lispx will complain that there is no error in CLOSEALLO. In 
this case, the user would have to type S <LISP>$ IN LOAD, or 
$ PRS <LISP>PRS (which would cause a search for PRS). 

Note also that S operates on input, not on prograros. If the user types FOO(), 
and within the call to FOO gets a U.D.F. CONDD error, he cannot repair this by 
S COND, lispx will type CONDD NOT FOUND IN F00(). 


* 


* 


* 


NAME atom t saves the event(s) (including side effects) 

specified by t on the property list of atom (under 
the property HISTORY) e.g. NAME FOO 10 THRU 15. 
NAME commands are undoable. 


The same effect could be achieved by S COND, which specifies substituting 
COND for CONDD, but not by S C0NDD$$, since the latter is equivalent to 
performing (R CONDD CONDDSJ) on the event, which would result in 
CONDDCONDDCONDD being substituted for CONDD (as described in Section 9). 


22.25 




REfRIEVE atom 


Retrieves and reenters on the history list the 
events naroed by atom . Causes an error if atom was 
not named by a NAME command. 

For example, if the user performs NAME FOO 10 THRU 15, and at some time later 
types RETRIEVE FOO, 6 new events will be recorded on the history list (whether 
or not the corresponding events have been forgotten yet). Note that RETRIEVE 
does not reexecute the events, it simply retrieves them. The user can then 
REDO, UNDO, FIX, etc. any or all of these events. Note that the user can 
combine the effects of a RETRIEVE and a subsequent history command in a single 
Operation by using an event specification of the form 9 atom, as described on 
page 22.14, e.g. REDO 9 FOO is equivalent to RETRIEVE FOO, followed by an 
appropriate REDO. ' Note that UNDO 9 FOO and ?? 9 FOO are permitted. 


BEFORE atom 


undoes the effects of the events named by atom . 


AFTER atom undoes a BEFORE atom . 

BEFORE/AFTER provide a convenient way of flipping back and forth between two 
States, namely that state bejore a specified event or events were executed, and 
that state öfter execution. For example, if the user has a complex data 
structure which he wants to be able to interrogate before and after certain 
modifications, he can execute the modifications, name the corresponding events 
with the NAME command, and then can turn these modifications off and on via 
BEFORE or AFTER commands. 25 Both BEFORE and AFTER are NOPs if the atom was 


27 


Actually, REDO 9 FOO is bettor than RETRIEVE followed by REDO 
latter case, the corresponding events wouId be entered on the 
twtce, once for the RETRIEVE and once for the REDO. 


since in the 
history list 


28 


The alternative to BEFORE/AFTER for repeated Switching back and forth 

wnu?H V h S UNC ! 0, 1 UND0 of the UND0 ' UND0 of that etc- At each stage, the user 
wouid have to locate the correct event to undo, and furtherraore would run 
the risk of that event being 'forgotten' if he did not switch at least once 
per time-slice. 
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already in the corresponding state; both generate errors if atom was not named 
by a NAME command. 

Note: since UNDO, NAME, RETRIEVE, BEFORE, and AFTER are recorded as inputs they 
can be referenced by REOO, USE, etc. in the normal way. However, the user 
must again remember that the context in which the command is reexecuted is 
different than the original context. For example, if the user types 
NAME FOO DEFINEQ THRU COMPILE, then types ... FIE, the' input that will be 
reread will be NAME FIE DEFINEQ THRU COMPILE as was intended, but both DEFINEQ 
and COMPILE, will refer to the raost recent event containing those atoms, namely 
the event consisting of NAME FOO DEFINEQ THRU COMPILE! 

ARCHIVE € records the events specified by t on a permanent 

history list. This history list can be referenced 
by preceding a Standard event specification with 
@0, e.g. ?? @@ prints the archived history list, 
REDO @@ -1 will recover the corresponding event 
from the archived history list and redo it, etc. 

The user can also provide for automatic archiving of selected events by 
appropriately defining archivefn . as described on page 22.33. 

FORGET t permanently erases the record of the side effects 

for the events specified by t. If t is omitted, 
forgets side effects for entire history list. 

FORGET is provided for users with space Problems. For example, if the user has 
just performed set s, rplaca s, rplacd s, putd , remprop s, etc. to release 
storage, the old pointers would not be garbage collected until the 
corresponding events age sufficiently to drop off the end of the history list 
and be forgotten. FORGET can be used to force immediate forgetting (of the 
side-effects only). FORGET is not undoable (obviously). 
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22.5 Miscellaneous Features and Commands 


YPE-AHEAD i s a command that allows the user to type-ahead an 

indefinite number of inputs. 

The assistant responds to TYPE-AHEAD with a prompt character of >. The user 
can now type in an indefinite number of lines of input, under errorset 
protection. The input lines are saved and unread when the user exits the type- 
ahead loop with the command SGO (alt-modeGO). While in the type-ahead loop, ?? 
can be used to print the type-ahead, FIX to edit the type-ahead, and SQ to 
erase the last input (may be used repeatedly). For example: 
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-TYPE-AHEAD 
>SYSOUT(TEM) 

>MAKEFILE(EDIT) 

>BRECOMPILE((EDIT WEDIT)) 

>F 

>$Q 

\\F 

>$Q 

WBRECOMPILE 
>LOAD(WEDIT PROP) 

>BRECOMPILE((EDIT WEDIT)) 

>F 

>MAKEFILE(BREAK) 

>LISTFILES(EDIT BREAK) 

>SYSOUT(CURRENT) 

>LOGOUT] 

>?? 

>5YSOUT(TEM) 

>MAKEFILE(EDIT) 

>LOAD(WEDIT PROP) 

>BRECOMPILE((EDIT WEDIT)) 

>F 29 

>MAKEFILE(BREAK) 

>LISTFILES(EDIT BREAK) 

>SYSOUT(CURRENT) 

>LOGOUT] 

>FIK 

EDIT 

*(R BRECOMPILE BCOMPL) 

*P 

((LOGOUT) (SYSOUT &) (LISTFILES &) (MAKEFILE &) (F) (BCOMPL &) 
(LOAD &) (MAKEFILE &) (SYSOUT &)) 

»(■DELETE LOAD) 

*OK 

>$GO 


The TYPE-AHEAD coromand raay be aborted by SSTOP; control-E sinply aborts the 
current line of input. 


2g -- 

Note that type-ahead can be addressed to the Compiler, since it uses 
lispxread for input. Type-ahead can also be directed to the editor, but 
type-ahead to the editor and to lispx cannot be intermixed. 
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* * A 

SBUFS (alt-modeBUFS) is a command for recovering the input buffers. 

Whenever an error occurs in executing a 1 ispx input or edit command, or a 
control-E or control-D is typed, the input buffers are saved and cleared. The 
SBUFS command is used to restore the input buffers, i.e. its effect is exactly 
the same as though the user had retyped what was 'lost.' For example: 

*(-2 (SETQ X (COND ((NULL Z) (CONS (user typed control-E) 

*p 

(COND (& 8.) (T &)) 

*2 

»SBUFS 

(-2 (SETQ X (COND ((NULL Z) (CONS 
and user can now finish typing the (-2 ..) command. 

Note: the type-ahead does not have to have been seen by I NITERL ISP, i.e., 
echoed, since the System buffer :Ls also saved. 

Input buffers are not saved on the history list, but on a free variable. Thus, 
°nly the contents of the input buffer as of the last clearbuf can ever be 
recovered. However, input buffers cleared at evalqt are saved independently 
from those cleared by break or the editor. The procedure followed when the 
user types SBUFS is to recover first from the local buffer, otherwise from the 

Oil 

top level buffer. Thus the user can lose input in the editor, go back to 
e valqt , lose input there, then go back into the editor, recover the editor's 


The local buffer is stored on lispxbufs : the top level buffer on 
tofilispxbufs. The forms of both buffers are (CONS (LINBUF) (5YSBUF)) (see 
Section 14). Recovery of a buffer is destructive, i.e. SBUFS sets the 
corresponding variable to NIL. If the user types SBUFS when both lispxbufs 
and top lispxbufs are NIL, the message NOTHING SAVED is typed, and an error 
generated. 
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buffer, etc. Furthermore, a buffer cleared at the top can be recovered in a 
break, and vice versa. 


* * * 

The following four commands, DO, !F, !E, and !N, are only recognized in the 
editor: 

DO com allows the User to supply the command name when it 

was omitted. (USE is used when a command name is 
incorrect). 

For example, suppose the user wants to perform 

(-2 (SETQ X (LIST Y Z))) but instead types just (SETQ X (LIST Y Z)). The 
editor will type SETQ ?, whereupon the user can type DO -2. The effect is the 
same as though the user had typed FIX, followed by (LI 1), (-1 -2), and OK, 
i.e. the command (-2 (SETQ X (LIST Y Z))) is executed. DO also works if the 
last command is a line command. 

!F same as DO F. 


In the case of !F, the previous command is always treated as though it were a 
line command, e.g. if the user types (SETQ X &) and then !F, the effect is the 
same as though he had typed F (SETQ X &), not (F (SETQ X &)). 


same as DO E. Note !E works correctly for 
'commands* typed in eval or apply format. 


! N 


same as DO N. 
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* 

control-U when typed in at any point during an input being 

read by lispxread . permits the user to edit the 
input before it is returned to the calling 
function. 

Th is feature is useful for corirecting roistakes noticed in typing before the 
input is executed, instead of waiting tili after execution and then performing 
an UNDO and a FIX. For exarople, if the user types 
(DEFINEQ (FOO (LAMBDA (X) (FIXSPELL X and at that point notices the missing 
left parenthesis, instead of coropleting the input and allowing the error to 
occur, and then fixing the input, he can simply type control-U, 3 * finish typing 
normally, whereupon the editor is called on (FOO (LAMBDA (X) (FIXSPELL X -- ], 
which the user can then repair, e.g. by typing (LI 1). If the user exits from 
the editor via OK, the (corrected) expression will be returned to whoever 
called lispxread exactly as though it had been typed. 32 If the user exits via 
STOP, the expression is returned so that it can be stored on the history list. 
However it will not be executed. In other words, the effect is the same as 
though the user had typed control-E at exactly the right instant. 


ß jj -— - — — 

Control-U can be typed at any point, even in the middle of an atom; it 
simply sets an internal flag checked by lispxread . 

32 

Control-U also works for calls to readline . i.e., for line commands. 
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valueof is an nlambda function for obtaining the value of 

a particular event, e.g. (VALUEOF -1), ' 3 
(VALUEOF -F00 -2). 

The value of an event consisting of several 
operations is a list of the values for each of the 
individual operations. 


Note, the value field of a history entry is initialized to bell (control-G). 
Thus a value of bell indicates that the corresponding Operation did not 
complete , i.e. was aborted or caused an error (or eise returned bell). 


* * , * 


prompt#flg is a flag which when set to T causes the current 

event number to be printed before each : and * 
prompt characters. See description of promptchar , 
page 22.51. 

prompt#flg is initially NIL. 


* * « 


archivefn allows the user to specify events to be 

automatically archived. 

When archivefn is set to T, and an event is about to drop off the end of the 
history list and be forgotten, archivefn is called giving it as its first 
argument the input portion of the event, and as its second argument, the entire 


33 ” — — — — 

Although the input for valueof is entered on the history list before 
valueof is called, valueof[-l] still refers to the value of the expression 
immodiately before the valueof input, because valueof effectively backs the 
history list up one entry when it retrieves the specified event. 
Similarly, (VALUEOF FQO) will find the first event before this one that 
contains a FOO. 


22.33 




34 

event. If archivefn returns T, the event is archived. For example, some 
users like to keep a record of all calls to load . Defining archivefn as: 
(LAMBDA (X Y) (EQ (CAR X) (QUOTE LOAD))) will accomplish this. Note that 
archivefn must be both set and defined. archivefn is initially NIL and 
undefined. 


* * * 

lispxmacros provides a macro facility for lispx . 

lispxmacros allows the user to define his own lispx commands. It is a list of 
elements of the form (command def). Whenever command appears as the first 
expression on a line in a lispx input, the variable lispxline is bound to the 
rest of the line, the event is recorded on the history list, and def is 
evaluated. Similarly, whenever command appears as car of a form in a lispx 
input, the variable lispxline is bound to cdr of the form, the event recorded, 
and def is evaluated. (See page 22.60 for an example of a lispxmacro ). 
RETRIEVE, BEFORE, and AFTER are implemented as lispxmacros . In addition, LISP, 
SNDMSG, TECO, and EXEC are lispxmacros which perform the corresponding calls to 
subsys (section 21), and CONTIN is a lispxmacro which performs (SUBSYS T). 
Finally, SY and DIR are lispxmacros which perform the EXEC, SYSTAT, and 
DIRECTORY commands respectively. DIR can be given arguments, e.g», 
DIR *.SAV;*. 


34 " ---- - - - --- - 

In case archivefn needs to examine the value of the event, its side 

effects, etc. See page 22.44 for discussion of the format of history 
lists. 
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lispxuserfn provides a way for a user function to process 

selected inputs, 

lispxuserfn is set to T, it is applied^® to all inputs not recognized as 
one of the commands described above. If lispxuserfn decides to handle this 
input, it sitnply processes it (the event was already stored on the history list 
beforo lispxuserfn was called), sets lispxvalue to the value for the event, and 
returns T. lispx will then know not to call eval or apply , and will simply 
store lispxvalue into the value slot for the event, and print it. If 
lispxuserfn returns NIL, lispx proceeds by calling eval or apply in the usual 
way. Thus by appropriately defining (and setting) lispxuserfn . the user can 
with a minimum of effort incorporate the features of the programmier*s assistant 
into his own executive (actually it is the other way around). 


35 


Like archivefn . lispxuserfn must be both set and defined. 




The following output illustrates such a coupling. 36 


**SETQ(ALTFORM (MAPCONC NASOIC (F/L (GETP X 'ALTFORMS] 

[1] 

=NASDICT 






(AL26 BE7 C056 C057 CO60 C13 

H3 MN54 

NA22 SC46 

S34 TI44) 


**(GIVEMELINESCONTAININGCOBALT) 



[2] 

SAMPLE PHASE 

CONSTIT. 

CONTENT 

UNIT 

CITATION 

TAG 

S10002 OVERALL 

C056 

40.0 

DPM/KG 

D70-237 

0 


C13 

8.8 

DEL 

D70-228 

0 


H3 

314.0 

DPM/KG 




MN 54 

28 




**GETP(COBALT ALTFORMS) 




[3] 

(C056 C057 C060 C13 H3 MN54 

NA22 SC46 

S34 T144) 



**UNDO MAPCONC 





[4] 

SETQ UNDONE. 






**REDOGETP 





[5] 

(C056 C057 CO60) 






**REDO COBALT 





[6] 

SAMPLE PHASE 

CONSTIT. 

CONTENT 

UNIT 

CITATION 

TAG 

S10002 OVERALL 

C057 

40.0 

DPM/KG 

D70-237 

0 

S10003 OVERALL 

CO 

15.0 


D70-203 

0 



14.1 


D70-216 



C056 

43.0 

DPM/KG 

D70-237 

0 


C057 

43.0 


D70-241 

0 


C060 

1.0 





**USE MANGANESE FOR COBALT 

The user is running under his own executive program which accepts requests in 
the form of sentences, which it first parses and then executes. The user first 
'innocently' computes a list of all ALTERNATIVE-FORMS for the elements in his 
System [1]. He then inputs a request in sentence format [2] expecting to see 
under the column CONSTIT. only cobalt, CO, or its alternate forms, C056, C057, 
or CO60. Seeing C13, H3, and MN54, he aborts the output, and checks the 
property ALTFORMS for COBALT [3]. The appearance of C13, H3, MN54, he aborts 
the output, and checks the property ALTFORMS for COBALT [3]. The appearance of 
C13, H3, MN54 et al, remind him that the mapconc is destructive, and that in 
the process of making a list of the ALTFORMS, he has inadvertently strung them 
all together. Recovering from this Situation would require him to individually 


The output is from the Lunar Sciences Natural Language Information System 
being developed for the NASA Manned Spacecraft Center by William A. Woods 
of Bolt Beranek and Ncwman Inc., Cambridge, Hass. 
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examine and correct the ALTFORMs for each element in his dictionary, a tedious 
process. Instead, he can simply UNDO MAPCONC, [4] check to make sure the 
ALTFORM has been corrected [5], then redo his original request [6] and 
continue. The UNDO is possible because the first input was executed by lispx ; 
the (GIVE ME LINES CONTAINING COBALT) is possible because the user defined 
■ Lispxuserfn appropriately; and the REDO and USE are possible because the 
(GIVE ME LINES CONTAINING COBALT) was stored on the history list before it was 
transmitted to lispxuserfn and the user's parsing program. 

lispxuserfn is a function of two arguments, x and line . where x is the first 
expression typed, and line the rest of the line, as read by readline (see page 
22.47). For example, if the user types FOO(A B C), x=FOO, and line=((A B C)); 
if the user types (FOO A B C), x=(FOO A B C), and line=NIL; and if the user 
types FOO A B C, x=FOO and Une=(A B C). 

Thus in the above example, lispxuserfn would be defined as: 

[LAMBDA (X LINE) 

(COND 

((AND (NULL LINE) 

(LISTP X)) 

(SETQ LISPXVALUE (PARSE X)) 

T] 

Note that since lispxuserfn is called for each input (except for p.a. 
commands), it can also be used to monitor some condition or gather statistics. 

* * * 

In addition to saving inputs and values, lispx saves most System messages on 
the history list, e.g. FILE CREATED —, (fn REDEFINED), (var RESET), output of 
TIME, BREAKDOWN, STORAGE, DWIM messages, etc. When printhistory prints the 
event, this output is replicated. This facility is implemented via the 
functions lispxprint, lispxprinl . Iispxprin2 . lispxspaces . lispxterpri . and 
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lispxtab . In addition to performing tho corresponding output Operation, these 
functions störe an appropriate expression on the history event under the 
property LISPXPRINT. 3a This expression is used by printhistory to reproduce the 
output. 

* * * 

In addition to the above features, lispx checks to see if car or cdr of NIL or 
car of I have been clobbered, and if so, restores them and prints a inessage. 
Lispx also performs spelling corrections using lispxcoms , a list of its 
commands, as a spelling list whenever it is given an unbound atom or undefined 
function, i.e. before attempting to evaluate the input.^® 


22.6 Undoing 

The UNDO capability of the programmer 1 s assistant is impleroented by requiring 
that each Operation that is to be undoable be responsible itself for saving on 
the history list enough Information to enable reversal of its side effects. In 
other words, the assistant does not 'know' when it is about to perform a 
destructive Operation, i.e. it is not constantly checking or anticipating. 
Instead, it simply executes operations, and any undoable changes that occur are 


In fact, all six of these functions have the same definition. When called, 
this function looks back on the stack to see what name it was called by, 
and determines what to do. Thus, if the user wanted to make any other 
output function, e.g. printdef . record its MOVD(LISPXPRINT LISPXPRINTOEF), 
and then use lispxprintdef for printdef . (This will work only for 
functions of three or fewer ärguments.) 


unless lispxprintflg is NIL. 

39 

is also responsible for rebinding helpclock , used by breakcheck . 
Soction 16, for Computing the amount of time spent in a computation, in 
order to determine whether to go into a break if and when an error occurs. 
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automatically saved on the history list by the responsible function.^ The 
Operation of UNDOing, which involves recovering the saved Information and 
performing the corresponding inverses, works the same way, so that the user can 
UNDO an UNDO, and UNDO that etc. 

At eoch point, until the user specifically requests an Operation to be undone, 
the assistant does not know, or care, whether Information has been saved to 
enable the undoing. Only when the user attempts to undo an Operation does the 
assistant check to see whether any Information has been saved. If none has 
been saved, and the user has specifically naroed the event he wants undone, the 
assistant types NOTHING SAVED. (When the user simply types UNDO, the assistant 
searches for the last undoable event, ingnoring events already undone as well 
as UNDO operations themselves.) 

This implementation minimizes the overhead for undoing. Only those operations 
which actually make changes are affected, and the overhead is small: two or 
three cells of storage for saving the Information, and an extra function call. 
However, even this small price raay be too expensive if the Operation is 
sufficiently primitive and repetitive, i.e. if the extra overhead may seriously 
degrade the overall performance of the program.^ Hence not every destructive 
Operation in a program should necessarily be undoable; the programmer must be 
allowed to decide each case individually. 


When the number of changes that have been saved exceeds the value of 
#u ndosave s (initially set to 50), the user is asked if he wants to continue 
saving the undo Information for this event. The purpose of this feature is 
to avoid tying up large quantities of storage for operations that will 
never need to be undone. The interaction is handled by the same routines 
usod by DWIM, so that the input buffers are first saved and cleared, the 
message typed, then the system waits dwimwait seconds, and if there is no 
response, assumes the default answor, which in this case is NO. Finally 
the input buffers are restored. See page 22.56 for details. 


41 

The rest of the discussion applies only to lispx ; the editor handles 
undoing itself in a slightly different fashion, as described on page 
22.61. 
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Therefore for each primitive destructive Operation, we have implemented two 
separate functions, one which always saves Information, i.e. is always 
undoable, and one which does not, e.g. / rplaca and rplaca , /put and put In 
the various System packages, the appropriate function is used. For example, 
break uses /putd and /remprop so as to be undoable, and DWIM uses /rplaca and 
/rplacd , when it makes a correction. 43 Similarly the user can simply use the 
corresponding / function if he wants to make a destructive Operation in his own 
program undoable. When the / function is called, it will save the undo 
Information in the current event on the history list. 

However, all operations that are typed in to lispx are made undoable, simply by 
substituting the corresponding / function *4 f or any destructive function 
throughout the input.^ 3 For example, on page 22.8, when the user typed 
(MAPCONC NASDIC (F/L ...)) it was (/MAPCONC NASOIC (F/L ...)) that was 
evaluated. Since the System cannot know whether efficiency and overhead are 
serious considerations for the execution of an expression in a user program, 
the user must decide, e.g. call /mapconc if he wants the Operation undoable. 


42 

The 'slash' functions currently implemented are /addprop , /attach , 
/dremo-ve , /dreverse , /dsubst . /Iconc . /mapcon , /mapconc , /movd , /nconc , 
/ ncon cl, /put , /putd , /putdq~ , /puthash , /remprop . /rplaca , /rplacd , /set , 
/seta , /seid , and /tconc . Note that /setq and /setqq are not included. If 
the user wants a set Operation undoable in his program, he must see /set, 
or /rplaca . 


The effects of the following functions are always undoable (regardless of 
whether or not they are typed in): define , defineq , defc (used to give a 
function a compiled code definitionj^ deflist , load , savedef , unsavedef , 
b rea k, unbreak , rebreak , trace , breakin . unbreakin . changename . editfns , 
editf, editv , editp , edite , editl, esubst . advise, unadvise , readvise , plus 
any changes caused by DWIM. 


Since there is no /setq , setq' s appearing in type-in are handled specially 
by substituting a call to sa veset . page 22.43. 


The Substitution is performed by the function lispx/. described on Daae 
22.58. -— 
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However, expressions that are typed-in rarely involve iterations or lengthy 
computations directly. Therefore, if all primitive destructive functions that 
are immodiately contained in a type-in are made undoable, there will rarely be 
a significant loss of efficiency. Thus lisfix scans all user input befere 
evaluating it, and substitutes the corresponding undoable function for all 
primitive destructive functions. Obviously with a more sophisticated analysis 
of both user input and user programs, the decision concerning which operations 
to make undoable could be better advised. However, we have found the 
configuration described here to be a very satisfactory one. The user pays a 
very small price for being able to undo what he types in, and if he wishes to 
protect himself from malfunctioning in his own programs, he can have his 

program specifically call undoable functions, or go into testmode as described 
next. 


Testmode 

Because of efficiency considerations, the user raay not want certain functions 
undoable after his program becomes operational. However, while debugging he 
«nay find it desirable to protect himself against a program running wild, by 
making primitive destructive operations undoable. The function testmode 
provides this capability by temporarily making everything undoable. 


testmode[flg] 


testmode[T1 redefines all primitive destructive 
functions with their corresponding undoable 
versxons and sets testmodeflg to T. testmodeM 
restores the original definitions, and sets 
testmodeflo to NIL. 


46 

47 


i.e. the 'slash' functions; see footnote on page 22.40. 

^ftiFTFfiaJd's haVe "° 6ffect on compiled mapconc's, since t hey compile open 
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Note that setq 's are not undoable, even in testmode . To malte the corresponding 
Operation undoable in testmode , set or rplaca should be used. 


Undoing Out of Order 

/rplaca and /rplacd operate by saving the pointer that is to be changed and Its 
original contents (i.e. /rplaca saves car and /rplacd saves cdr ). Undoing 
/rplaca and /rplacd simply restores the pointer. Thus, if the user types 
(RPLACA FOO 1), followed by (RPLACA F00 2), then undoes both events by undoing 
the most recent event first, then undoing the older event, FOO will be restored 
to its state before either rplaca operated. However if the user undoes the 
first event, then the second event, (CAR FOO) will be i, since this is what was 
in car of FOO before (RPLACA FOO 2) was executed. Similarly, if the user 
performs (NC0NC1 FOO 1) then (NC0NC1 FOO 2), undoing just (NC0NC1 FOO 1) will 
remove both 1 and 2 from FOO. The problem in both cases is that the two 
operations are not 'independent.' In general, operations are always independent 
if they affect different lists or different sublists of the same list.^ 
Undoing in reverse order of execution, or undoing independent operations, is 
always guaranteed to do the 'right' thing. However, undoing dependent 
operations out of order may not always have the predicted effect. 


Property list operations, (i.e. put , addprop and remprop ) are handled 
specially so that they are always independent, even when they affect the 
samo property list. For example, if the user types PUT(FOO FIE1 FUM1) then 
PUT(FOO FIE2 FUM2), then undoes the first event, the FIE2 property will 
remain, even though CDR(FOO) may have been NIL at the time the first event 
was executed. 
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Saveset 


Setci's are made undoable on type in by substituting a call to savesct 
(described in detail on page 22.55), whenever setq is the name of the function 
to be applied, or car of the form to be evaluated. In addition to saving 
enough Information on the history list to enable undoing, saveset operates in a 
manner analogous to savedef when it resets a top level value, i.e. when it 
changes a top level binding frora a value other than NOBIND to a new value that 
is not egual to the old one. In this case, saveset saves the old value of the 
variable being set on the variable's property list under the property VALUE, 
and prints the message (variable RESET). The old value can be restored via the 
function unset, 49 which also saves the current value (but does not print a 
message). Thus unset can be used to flip back and forth between two values. 

- P a 1 anc * EPM3 are implemented via calls to saveset . Thus old values will be 

saved and messages printed for any variables that are reset as the result of 
öO 

loading a file. Calls to set and setqq appearing in type in are also 
converted to appropriate calls to saveset . 

For top level variables, saveset also adds the variable to the appropriate 
spelling list, thereby noticing variables set in files via rpaqq or rpaqq , as 
well as those set via type in. 


Of course, UNDO can be used as long as the event containing this call to 
is still active. Note however that the old value will remain on 
the property list, and therefore be recoverable via unset, even after the 
original event has been forgotten« 
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To complete the analogy with define , saveset will not save old values on 
property lists if dfnflg=T, e.g. when load is called with second argument 

dfnfln-A?ypR^D ^ CaU 1 tQ « ^ veset i wil1 sti11 b0 undoable,) and when 
~^tLPROP, the value is stored directly on the property list under 
property VALUE (the latter applies only to calls from rpaqq and rpaq ). 
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22.7 Format and Use of the History List 


There are currently two history lists, lispxhistory and edithistory . Both 
history lists have the same format, and in fact, each use the same function, 
historysave , for recording events, and the same set of functions for 
implementing commands that refer to the history list, e.g. historyfind , 
printhistory . undosave . etc. 6J 

Each history list is a list of the form (1 event# size mod), where 1 is the 
list of events with the most recent event first, event# is the event number for 
the most recent event on 1, size is the size of the time-slice, i.e. the 
maximum length of 1, and mod is the highest possible event number (see footnote 
on page 22.8). lispxhistory and edithistory are both initialized to 
(NIL 0 30 100). Setting lispxhistory or edithistory to NIL is permitted, and 
simply disables all history features, i.e. lispxhistory and edithistory act 
lik.e flags as well as repositories of events. 

Each individual event on 1 is a list of the form (input id value . props), 
where input is the input sequence for the event, as described on page 22.17-19, 
id the prompt character, e.g. :, *, 62 and value is the value of the event, 
and is initialized to bell. 63 
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A third history list, archiveist , is used when events are archived, as 
described on page 22.27. It too uses the same format. 


id is one of the arguments to lispx and to historysave . A user can call 
lispx giving it any prompt character he wishes (except for *, since in 
certain cases, lispx must use the value of id to teil whether or not it was 
called from the editor.) For example, on page 22.36, the user's prompt 
character was **. 


edithistory , this field is used to save the side effects of each 
command. 
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props is a property list, i.e. of the form (property value property value --). 
props can be used to associate arbitrary Information with a particular event. 
Currently, the properties SIDE, GROUP, HISTORY, PRINT, USE-ARGS, ...ARGS, 
ERROR, and LISPXPRINT are being used. The value of property SIDE is a list of 
the side effects of the event. (See discussion of undosave , page 22.56, and 
undolispx , page 22.58). The HISTORY and GROUP properties are used for 
commands that reexecute previous events, i.e. REDO, RETRY, USE, .... and FIX. 
The value of the HISTORY property is the history command itself, i.e. what the 
user actually typed, e.g. REDO FROM F, and is used by the ?? command for 
printing the event. The value of the property PRINT is also for use by the ?? 
command, when special formatting is required, for example, in printing events 
corresponding to the break commands OK, GO, EVAL, and ?=, USE-ARGS and ...ARGS 
are used to save the arguments and expression for the corresponding history 
command. ERROR is used by the $ command. LISPXPRINT is used to record calls 
to lispxprint . lispxprinl , et al, See page 22.37. 

When lispx is given an input, it calls historysave to record the input in a new 
S4 

event. Normally, historysave returns as its value cddr of the new event, i.e. 
cor of its value is the value field of the event. lispx binds lispxhist to the 
value of historysave . so that when the Operation has completed, lispx knows 
where to störe the value, namely in car of lispxhist lispxhist also provides 
access to the property list for the current event. For example, the / 
functions are all implemented to call undosave . which siraply adds the 
corresponding information to lispxhist under the property SIDE, or if there is 
no property SIDE, creates one, and then adds the information. 


The commands ??, FORGET, TYPE-AHEAD, SBUFS, and ARCHIVE are executed 
immediately, and are not recorded on the history list. 

Öö 

Note that by the time it completes, the Operation may no longer correspond 
to the most recent event on the history list. For example, all inputs 
typed to a lower break will appear later on the history list. 
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After binding lispxhist . lispx executes the input, Stores its value in car of 
lispxhist , prints the value, and returns. 

When the input is a REOO, RETRY, USE, or FIX command, the procedure is 

similar, except that the event is also given a GROUP property, initially NIL, 
and a HISTORY property, and lispx simply unreads the input and returns. When 
the input is 'reread*, it is hlstorysave . not lispx , that notices this fact, 
and finds the event from which the input originally came.®^ historysave then 
adds a new (value . props) entry to the GROUP property for this event, and 
returns this entry as the 'new event.' lispx then proceeds exactly as when its 
input was typed directly, i.e. it binds lispxhist to the value of historysave . 
executes the input, Stores the value in car of lispxhist . prints the value, and 
returns. ln fact, lispx never notices whether it is working on freshly typed 
input, or input that was reread. Similarly, undosave will störe undo 
information on lispxhist under the property SIDE the same as always, and does 
not know or care that lispxhis t is not the entire event, but one of the 
elements of the GROUP property. Thus when the event is finished, its entry 
will look like: 

(input id value HISTORY command GROUP ((valuei SIOE sidel) 

(value2 SIDE side2) 

...)) 67 

This Implementation removes the bürden from the function calllng historysave of 
distinguishing between new input and reexecution of input whose history entry 


*f ?li^ 2 .CX§ave cannot find the event, for example if .a user program unreads 
tho input directly, and not via a history command, historysave proceeds as 
though the input were typed. " — 


In this case, the value field is not being used; valueof instead collects 
each of the values from the GROUP property, i.e. returns 
mapcar[get[event;GROUP];CAR]., Similarly, undo operates by collecting the 
SIDE properties from each of the elements of the GROUP property, and then 
undoing them in reverse order. 
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has already been set up. 


68 


22.8 lispx and readline 

lispx is called with the first expression typed on a line as its first 
argument, lispxx . 

If this is not a list, lispx always does a readline . and treats lispxx plus the 
line as the input for the event. and Stores it accordingly on the history 

ßQ 

list. Thcn it decides what to do with the input. i.e. if it is not recognized 
as a command, a lispxmacro , or is processed by lispxuserfn , call eval or 
applyreadline normally is terminated either by (i) a carriage return that 
is not preceeded by a space, or (2) a list that is terminated by a ], or (3) an 
unmatched ) or ], which is not included in the line. However, when called from 
lispx . readline operates differently in two respects: 

(1) If the line consists of a single ) or ], readline returns (NIL) 
instead of NIL, i.e. the ) or ] is included in the line. This permits 
the user to type F00) or F00], meaning call the function' FOO with no 
arguments, as opposed to FOOj (FOOcarriage-return), meaning evaluate 
the variable FOO. 

(2) If the first expression on the line is a list that is not preceded by 

ßß - -- ------ 

Although wo have not yet done so, this Implementation, i.e. keeping the 
various 'sub-events' separate with respect to values and properties, also 
permits constructing commands for operating on just one of the sub-events. 

59 

If lispxx is a list car of which is LAMBDA or NLAMBDA, lispx calls 
lispxrcad to obtain the arguments. 


If the input consists of one expression, eval is called; if two, apply ; if 
more than two, the entire line is treated as a single form and eval is 
called. 
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any spaces, the list terminates the line regardless of whether or not 
it is terminated by ]. This pernits the user to type EDITF(FOO) as a 
single input. 

Note that if any spaces are inserted between the atom and the left parentheses 
or bracket, readline will assume that the list does not terminate the line. 
This is to enable the user to type a line comraand such as USE (FOO) FOR FOO. In 
this case, a carriage return will be typed after (FOO) followed by as 

described in Section 14. ThereFore, if the user accidentially puts an extra 
space between a function and its arguments, he will have to complete the input 
with another carriage return. e.g. 

«-EDITF (FOO) 

... 

EDIT 


22.9 Functions 


lispx[ lispxx; lispxid; lispxxmacros ;lispxxuserfn 

lispx is like eval / apply . It carries out a single 
coraputation, and returns its value. The first 
argument, lispxx is the result of a single call to 
lispxread . lispx will call readline . if necessary 
as described on page 22.47. lispx prints the 
value of the computation, as well as saving the 


lispxid corresponds to id on page 22.44. Lispx also has a fifth argument, 
lispxflg . which is used by the E comraand in the editor. 
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input and value on lispxhistory .^ 


If lispxx is a history command, lispx executes the 
command, and returns bell as its value. 

If the value of the fourth argument, lispxxmacros . 
1s not NIL, it is used as the lispx macros, 
otherwise the top level value of lispxmacros is 
used. If the value of the fifth argument, 
lispxxuserfn . is not NIL, it is used as 
lispxuserfn . In this case, it is not necessary to 
both set and define lispxuserfn as described on 
page 22.35. 

The overhead for a call to lispx is approximately 17 milliseconds, of which 12 
milliseconds are spent in maintaining the spelling lists. In other words, in 
INTERLISP, the user pays 17 more milliseconds for each eval or apply input over 
a conventional LISP executive, in order to enable the features described in 
this chapter. 

userexec[ lispxid; lispxxmacros; lispxxuserfn ] 

repeatedly calls lispx under errorset protection 
specifying lispxxmacros and lispxxuserfn , and 
using lispxid (or *■ if lispxid =NIL) as a prompt 
character. Userexec is exited via the lispxmacro 
OK, or eise with a retfrom . 

Note that the history is not one of the arguments to lispx , i.e. the editor 
must bind (reset) lispxhistory to edithistory before calling lispx to carry 
out a history command. 

lispx will continue to operate as an eval / apply function if lispxhistory is 
NIL. Only those functions and commands that involve the history list will 
be affected. 
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lispxread[f ile] 


is a generalized read . If readbuf =NIL, lispxread 
perforras read[file], which it returns as its 
value. (If the user types control-U during the 
call to read , lispxread calls the editor and 
returns the edited value.) 

If readbuf is not NIL, lispxread 'reads' the next 

expression on readbuf . i.e. essentially returns 

(PR0G1 (CAR READBUF) 

(SETQ READBUF (CDR READBUF))). 63 

readlrne, described in Section 14, also uses this generalized notion of 
reading. When readbuf is not NIL, readline 'reads' expressions frora readbuf 

until it either reaches the end of readbuf , or until it reads a (VAG 0). In 

both cases, it returns a list of the expressions it has 'read'. (The (VAG 0) 
Is not included in the list.) 

When r eadbuf is not NIL, both lispxread and readline actually obtain their 
input by performing (APPLY* LISPXREADFN FILE), where lispxreadfn is initially 

set to READ. Thus, if the user wants lispx . the editor, break, et al to do 

their reading via a different input function, e.g. uread , he simply sets 
r . e ndfn to the name of that function (or an appropriate LAMBDA expression). 

lispxreadpfflg] is a generalized readp . If flgsT. lispxreadp 

returns T if there is any input waiting to be 
'read', a la lispxread . If flg=NIL. lispxreadp 
returns T only if there is any input waiting to be 
'read' on this line. In both cases, leading spaces 


Except that pseudo-carriage returns, as represented by (VAG 0), are 
ignored, i.e. skipped. Lispxread also sets rereadflg to NIL when it reads 
Vla r . aa d » ®nd sets rereadf lg to the value of readbuf when rereading. 
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are ignored, i.e. skipped over with readc . so that 
if only spaces have been typed, lispxreadp will 
return NIL. 


lispxunread[Ist] unreads Ist , a list of expressions to be read. If 

readbuf is not NIL, lispxunread attaches Ist at 
the front of readbuf . separating it from the rest 
of readbuf with a (VAG 0). The definition of 
lispxunread is: 

(LISPXUNREAD 
[LAMBDA (LST) 

(SETQ READBUF (COND 
((NULL READBUF) 

LST) 

(T (APPEND LST (CONS (VAG 0) 

READBUF]) 

promptchar[id;flg;hist] prints the prompt character id . 

promptchar will not print anything when the next 
input will be •reread', i.e. readbuf is not NIL. 
promptchar will also not print when readp[]=T, 
unless flg is T. 

Thus the editor calls promptchar with flg=NIL so that extra *'s are not printed 
when the user types several commands on one line. However, evalqt calls 
promptchar with flg =T since it always wants the *• printed (except when 
'rereading'). 


Finally, if prompt#flg is T and hist is not NIL, 
promptchar prints the current event number (of 
hist ) before printing id. 
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lispxeval[lispxformjlispxid] evaluates lispxform (using eval) the same as 

though it wäre typed in to lispx . i.e. the event 
is recorded, and the evaluation is made undoable 
by substituting the slash functions for the 
corresponding destructive functions, as described 
on page 22.40. lispxeval returns the value of the 
form, but does not print it. 

h istorysave[ history;id; input 1; in,put2;input3; props] 

records one event on history . If inputl is not 
NIL, the input is' of the form 
(inputl input2 . input3). If inputl is NIL, and 
input2 is not NIL, the input is of the form 
(input2 . input3). Otherwise, the input is just 
input3 . 

historysave creates a new event with the 
corresponding input, id, value field initialized 
to bell, and props . If the history has reached 
its full size, the last event is removed and 
camnibalized. 

The value of historysave is cddr of the event. 
However, if rereadflg is not NIL, and is a tail of 
the input of the most recent event on the history 
list, and this event contains a GROUP property, 
historysave does not create a new event, but 
siroply adds a (bell . props) entry to the GROUP 
property and returns that entry. See discussion 
on page 22.46. 
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lispxf ind[ history; line; type; backup] 

line is an event specification, type specifies the 
format of the value to be returned by lispxfind , 
and can be either ENTRY, ENTRIES, COPY, COPIES, 
INPUT, or REDO. lispxfind parses line , and uses 
historyfind to find the corresponding events. 
lispxfind then asserobles and returns the 
appropriate structure. 

lispxfind incorporates the following special features: 

(1) if backup =T, lispxf ind interprets line in the context of the history list 
before the current event was added. This feature is used, for example, by 
valueof , so that (VALUEOF -1) will not refer to the valueof event itself; 

(2) if line -NIL and the last event is an UNDO, the next to the last event is 
taken. This permits the user to type UNDO followed by REDO or USE; 

(3) lispxfind recogni 2 es @0, and Substitutes archiveist for history (see page 
22.14); and 

(4) lispxfind recognizes 0, and retrieves the corresponding event(s) from the 
property list of the atom following 0 (see page 22.14). 

historyfind[lst;index;mod;x;y] 

searches Ist and returns the tails of Ist 
beginning with the event corresponding to x. Ist , 
index, and mod are as described on page 22.44. 
x is an event address, as described on page 
22.11-14, e.g. (43), (-1), (FOO FIE), 
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(LOAD *- FOO), etc. 04 If historyfind cannot find x, 
it generates an error. 

entry#[hist;x] hist is a history list, i.e. of the form described 

on page 22.44. x is one of the events on hist . 
i.e. (MEMB X (CAR HIST)) is true. The value of 
entry# is the event number for x. 

is an nlambda, nospread function for obtaining the 
value of the event specified by x, e.g. 
(VALUEOF -1), (VALUEOF LOAD 1), etc. valueof 
returns a list of the corresponding values if x 
specifies a multiple event. 

( 

changes time-slice for history to n. If history 
is NIL, changes both edithistory and lispxhistory . 

Note: the effect of increasing a time-slice is gradual: the history list is 
simply allowed to grow to the corresponding length before any events are 
forgotten. Decreasing a time-slice will imraediately remove a sufficient number 
of the older events to bring the history list down to the proper size. 
However, changeslice is undoable, so that these events are (temporarily) 
recoverable. Thus if the user wants to recover the storage associated with 
these events without waiting n raore events for the changeslice event to be 
forgotten, he must perform a FORGET command. 


valueof[x] 


changeslice[n jhistory]®® 


ß4 "" .— 

If y is given, the event address is the list 
e.g. x=(FOO FIE AND \ -1), y=(AND \ -1) 

x=(FOO FIE), y=NIL. 


dijference between x and y, 
is equivalent to 


£Ü°üg p,slice has a third argument used by the System for undoing a 
changeslice . 
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saveset[name;value;topflg;flg] 


an undoable set . (see page 22.43). savesct scans 
the pushdown list looklng fpr the last binding of 
name . sets name to value , and returns value . 

If the, binding changed was a top level binding, 
name is added to spellings3 (see Section 17). 
Furthermore, if the old value was not NOBIND, and 
was also not equal to the new value, saveset calls 
the file package to update the necessary file 
records. Then, if dfnflg is not equal to T, 
saveset prints (name RESET), and saves the old 
value on the property list of name . under the 
property VALUE. If flg =NOPRINT, saveset saves the 
old value, but does not print the message. This 
Option is used by unset . 

If topflg =T. saveset operates as above except that 
it does not scan the pushdown list but goes right 
to name 's value cell, e.g. rpaqq[x;y] is simply 
saveset[x;y;T]. When topf lg is T, and dfnflg is 
ALLPROP and the old value was not NOBIND, saveset 
simply Stores value on the property list of name 
under the property VALUE, and returns value . This 
Option is used for loading files without 
disturbing the current value of variables (see 
Section 14). 

If flg =NOSAVE. saveset does not save the old value 
on the property list, nor does it add name to 
spellings3 . However, the call to saveset is still 
undoable. This option is used by /set. 
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unset[name] 


if name does not contain a property VALUE, unset 


generates an error. Otherwise unset calls saveset 
with name , the property value, topflg =T, and 
flg=NOPRINT. 

undosave[undoform] 6e if lispxhist is not NIL (see discussion on page 

22.45), and get[lispxhist;SIDE] is not equal to 
NOSAVE, undosave adds undoform to the value of the 
property SIOE on lispxhist . creating a SIOE 
property if one does not already exist. The form 
of undoform is (fn . args), 67 i.e. undoform is 
undone by performing 
apply[car[undoform];cdr[undoform]]. For example, 
if the definition of F00 is def, /putd[FOO;newdef ] 
will cause a call undosave with 
undoform «(/PUTD F00 def). 

car of the SIOE property is the number of 
'undosaves', i.e. length of cdr of the SIOE 
property, which is the list of undoforms . Each 
call to undosave increments this count, and adds 
undoform to the front of the list, i.e. just after 
the count. Wien the count reaches the value of 
#undosaves (initially 50),®^ undosave prints a 


Undosave has a second optional argument, histentry . which can be used to 
spccify lispxhist directly, saving the time to look it up. If both 
histentry and lispxhist are NIL, undosave is a NOP. 


fi 7 

Except for /rplnode , as described below. 


ij o 

#undosavos =NIL is equivalent to #undosaves ajnfinitv. 
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/rplnode[x;a;d] 


new/fn[fn] 


mcssage asking the user if he wants to continue 
saving. If the user answers NO or defaults, 
undosave makes NOSAVE he the value of the property 
SIDE, which disables any further saving for this 
event. If the user answers YES, undosave changes 
the count to -1, which is then never incremented, 
and continues saving. 60 

Undoably performs rplaca[x;a] and rplacd[x;d]. 
Value is x. The principle advantage of /rplnode 
is that when x is a list, /rplnode saves its undo 
Information as' cons[x;cons[car[x];cdr[x]]], i.e. 
(x originalcar . originalcdr), and therefore 
requires only 3 cells of storage, instead of the 8 
that would be required for a /rplaca and a /rplacd 
that saved their Information as described 
earlier. 76 

/rplnode has a BIKLIBRARYDEF,. 

After the user has defined /f n» new/fn performs 
the necessary housekeeping operations to make fn 
be undoable. 


69 


70 


l^ad initializes the count on SIDE to -1, so that regardless of the value 
of iMMosaves, no message will be printed, and the load will be undoable. 

Actually, /rplaca and /rplacd also use this format for saving their undo 
Information when their first arguments are lists. However, if both a 

TrnTnmL 3 !' 1 -! — are be ■ PeiTormed, it is still more efficient to use 

/rplnode (3 cells versus 6 cells). 
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For example, the user could define /radix as 


(LAMBDA (X) (UNDOSAVE (LIST (QUOTE /RADIX) (RADIX X))) and then perform 

new/fn[radix], and radix would then be undoable when typed in or in testmode. 

lispx/[x;fn;vars] perfortns the Substitution of / functions for 

destructive functions. If fn is not NIL, it is 
the name of a function, and x is its argument 
list. If fn is NIL, x is a form. In both cases, 
lispx/ returns x with the appropriate 
substitutions. Vars is a list of bound variables 
(optional). 

lispx/ incorporates Information about the syntax 
and semantics of INTERLISP expressions. For 
example, it does not bother to make undoable 
operations involving variables bound in x. It 
also knows that Substitution should not be 
performed inside of expressions car of which is 
QUOTE, DEFINEQ, BREAK, etc. 71 Similarly, 
Substitution should be performed in the arguments 
for functions like mapc , rptq , etc., since these 
contain expressions that will be evaluated or 
applied. For example, if the user types 
mapc[(F001 F002 F003);PUTD] the putd must be 
replaced by /putd . 

undolispx[line] lin e is an event specification. undolispx is the 

function that executes UNDO commands by calling 
undolispxl on the appropriate entry(s). 

7/ "" ~ • ---- 

Any member of the list nosubstfns. 
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undolispxl[event;flg] undoes pne event. The value of undolispxl 1s NIL 

if there is nothing to be undone. If the event is 
already undone, undolispxl prints ALREADY UNDONE 
and returns 1?^ Otherwise, undolispxl undoes the 
event, prints a raessage, e.g. SETQ UNDONE, and 
returns T. 

Undoing an event consists of raapping down ( cdr of) the property value for SIDE, 
and for each element, applying car to cdr, and then raarking the event undone by 
attaching (with / attach ) a NIL to the front of its SIDIi property. Note that 
the undoing of each element on the SIDE property will usually cause undosaves 
to be added to the current lispxhist . thereby enabling the effects of 
undolispxl to be undone. 

undonlsetq[form] is an nlambda function similar to nlsetq . 

undonlsetq evaluates form , and if no error occurs 

during the evaluation, returns list[eval[form]] 

and passes the undo Information from form (if any) 
73 

upwards. If an error does occur, the value of 
undonlsetq is NIL, and any changes made by / 
functions during the evaluation of form are 
undone. 


If £lS = T and the event is already undone, or is an undo command, undolisp xl 
takes no action and returns NIL. Undolispx uses this option to search for 
the last event to undo. Thus when line =NIL. undolispx simply searchos 
history until it finds an event for which undolispxl returns T. i.e. 
undolispx performs (SOME (CDAR LISPXHISTORY) (F7rTÜND0LISPXl X T))) 


Actually, u nd o nlset q does not rebind lispxhist , so that any undo 
Information is stored directly on the history event, exactly as though 
there were no undonlsetq . Instead, undonlsetq simply marks the state of 
the undo Information when it Starts, so that if an error occurs, it can 
then know how rauch to undo. The purpose of this is so that if the user 
control-D's out of the undonlsetq . the event is still undoable. 
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undonlsetq compiles open. 


undonlsetq will operate even if lispxhistory or 
lispxhist are NIL, or if #undosaves is or has been 
exceeded for this event. 

Note that undonlsetq provides a limited form of backtracking. 

pr in thistory[history;l ine; skipfn; novalues] 

üne is an event specification. printhistory 
prints the events on history specified by line, 
e.g. (-1 THRU -10). skipfn is an (optional) 
functional argument that is applied to each event 
before printing. If its value is true, the event 
is skipped, i.e. not printed. If novalues =T, or 
novalues applied to the corresponding event is 
true, the value is not printed. 74 

For example, the following lispxmacfo will define ??' as a command for printing 

the history list while skipping all 'large events* and not printing any values. 

(??' (PRINTHISTORY LISPXHISTORY LISPXLINE 
(FUNCTION (LAMBDA (X) 

(IGREATERP (COUNT (CAR X)) 5))) 


74 


For example, novalues is T when printing events on edithistory . 




22.10 The Editor and the Assistant 

As mentioned earlier, all of the remarks concerning 'the assistant' apply 
equally well to user interactions with evalqt , break or the editor. The 
differences between the editor's Implementation of these features and that of 
lispx are mostly obvious or inconsequential. However, for completeness, this 
section discusses the editor's implementation of the programmer's assistant. 

The editor uses promptchar to print its prompt character, and lispxread , 
lispxreadp , and readline for obtaining inputs. When the editor is given an 
input» it calls historysave to record the input in a new event on its history 
edithistory . Edithistory follows the same conventions and format as 
1ispxhistory . However, since edit commands have no value, the editor uses the 
value field for saving side effects, rather than storing them under the 
property SIDE. 

The editor processes DO, !E, !F, and !N commands itself, since lispx does not 
recognize these commands. The editor also processes UNDO itself, as described 
below. All other history commands 70 are simply given to lispx for execution, 
after first binding (resetting) lispxhlstorv to edithistory . The editor also 


Except that the atomic commands OK, STOP, SAVE, P, ?, PP and E are not 
recorded. In addition, number commands are grouped together in a single 
event. For example, 33-1 is considered as one command for changing 
Position. 


as indicated by their appearance on historycoms , a list of the history 
commands. editdefault interrogates historycoms before attempting spelling 
correction. (All of the commands on historycoms are also on editcomsa and 
pditcomsl so that they can be corrected if misspelled in the editor.) Thus 
if the user defines a lispxmacro and wishes it to operate in the editor as 
well, he need simply add it to historycoms . For example, RETRIEVE is 
implomented as a lispxmacro and works equally well in lispx and the editor. 
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calls lispx when given an E command as described in Section 9 . 77 

The major Implementation difference betwoon the editor and lispx occurs in 
undoing. Edithistory is a list of only the last n commands, where n is the 
value of the time-slice. However the editor provides for undoing all changes 
made in a single editing session, even if that session consisted of more than n 
edit commands. Therefore, the editor saves ündo Information independently of 
odlthistory on a list call undolst , (although it also Stores each entry on 
undolst in the field of the corresponding event on edithistory .) Thus, the 
commands UNDO, !UNDO, and UNBLO'CK, are not dependent on edithistory ,^ i.e. 
UNDO specifies undoing the last command on undolst , even if that event no 
longer appears on edithistory . The only interaction between UNDO and the 
history list occurs when the user types UNDO followed by an event 
specification. In this case, the editor calls lispxfind to find the event, and 
then undoes the corresponding entry on undolst . Thus the user can only undo a 
specified command within the scope of the edithistory . (Note that this is also 
the only way UNDO commands themselves can be undone, that is, by using the 
history feature, to specify the corresponding event, e.g. UNDO UNDO.) 

The Implementation of the actual undoing is similar to the way it is done in 
lispx : each command that makes a change in the structure being edited does so 
via a function that records the change on a variable. After the command has 
completed, this variable contains a list of all the pointers that have been 


In this case, the editor uses the fifth argument to lispx . lispxf lg , to 
specify that any history commands are to be executed by a recursive call to 
lisp x, rather than by unreading. For example, if the user types E REOO in 
the editor, he wants the last event on _lispxhistory processed as lispx 
input, and not to be unread and processed by the editor. 


and in fact will work if edithistory sNIL, or even in a system which does 
not contain lispx at all. 
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changed and their original contents. Undoing that command simply involves 
mapping down that list and restoring the pointers. 


22.11 Statist ics 

The programmer 1 s assistant keeps various statistics about System usage, e.g. 
number of lispx inputs, number of undo saves, number of calls to editor, number 
of edit commands, number of p.a. commands, cpu time, console time, et al. 
These can be viewed via the function lispxstats . 

lispxst.ats[] prints statistics. 

The user can add his own statistics to the lispx statistics via the function 
addstats... 


addstats[statlst] no spread, nlambda. Statist is a list of elements 

of the form (statistic-name . message), e.g. 
(EOITCALLS CALLS TO EDITOR) (UNDOSTATS CHANGES 
UNDONE), etc. statistic-name is set to the cell 
in an unboxed array, where the corresponding 
statistic will be stored. This statistic can then 
be incremented by lispxwatch . 

lispxwatchCst,at;n] increments stat by n (or 1 if n=NIL). lispxwat ch 

has a BLKLIBRARYDEF. 

The user can save his statistics for loading into a new System by performing 
MAKEFILF_( DUMPSTATS). After the file DUMPSTATS is loaded, the statistics printed 
Ü s P xstats will be the same as those that would be printed following the 
makefile. 
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22.12 Greeting and User Initialization 


Many of the features of INTERLI5P are parameterized to allow the user to adjust 
the system to his or her own tastes. Among the more commonly adjusted 
Parameters are prompt#flg . dwimwait . changeslice . #rpars , lowercase . archivefn . 
#undosaves , fltfmt, etc. In addition, the user can modify the action of system 
functioris in ways not specifically provided for by using advise (Section 19). 

In order to encourage this procedure, and to make it as painless and automatic 
as possible, the p.a. includes a facility for a user-defined profile. When 
INTERLISP is first run, a specially formatted file on the LISP file dlrectory 
is indexed into using the user's usernumber as a key. The expressions (if any) 
found there are then evaluated, and the p.a. prints a greeting, e.g., 
"HELLO, WARREN." or "GOOD AFTERNOON, DANNY.", etc. 

Greeting (i.e., the initialization) is undoable, and is stored as a separate 
event on the history list. The user can also specifically invoke the greeting 
Operation via the function greet , for example, if he wishes to effect another 
user's initialization. 

greet[name;flg] performs greeting for user whose username is name, or 

if name =NIL, for login name (see username and 
usernumber . Section 21), i.e., when INTERLISP first 
Starts up, it performs greet[]. Before greet performs 
the indicated initialization, it first undoes the 
effects of the previous greeting. 70 If flg=T, greet 
also resets the counters for the various statistics 
reported by lispxstats (page 22.63). 

79 * ------ -------------------- 

The side effects of the greeting Operation are stored on a global variable 

as well as the history list, thus enabling the previous greeting to be 
undone even if it is no longer on the history list. 
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fl r . fffft slso sets the variable username to the name for which the greeting was 
performed. Sysin is advised to compare username with username[], and to print 
a message alerting the user if they are not the same. For example, if user 
HARTLEY performs a sysin of a sysout made by user GOODWIN, the following 
message is printed: 

****ATTENTION USER HARTLEY: 

THIS SYSOUT IS INITIALIZED FOR USER„GOODWIN. 

TOREINITIALIZE,TYPEGREET() 8V 


Implementation 

greet operates off the file <LISP>USERNAMEFILE. To change an existing 
initialization, or create a new one, a new <LISP>USERNAMEFILE must be written. 
This is accomplished by loading the file <LISP>USERNAMES, editing usernamelst . 
and then performing makeusernames[], which will create new versions of both 
USERNAMEFILE and USERNAMES. (Note that the person performing this Operation 
must therefore either be connocted to the LISP directory, or have write access 
to it.) 

»sfirnamelst is a list of elements of the form (username firstname T . forms), 
e.g., (TEITELMAN WARREN T (CHANGESLICE 100) (SETQ DWIMWAIT 5)). cadr of the 
list is used in the greeting message. cdddr is a list of forms that are 
evaluated. 

usernamelst can be edited just like any other list, e.g., with editv . The file 
USERNAMEFILE, created by makeusernames . contains usernamelst along with an 
index block which contains for each user on usernamelst the address in the file 


This message can be suppressed by setting the variable sysoutgag to NIL 
(mitially T). Alternatively, sysoutgag can be a list, in which case it is 
evaluated (if the user names are different), and thus the user can print 
his own message. 
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(i.e., byte Position) of the Start of his entry. greet then simply does an 
sfptr and a read . 

If usernamelst contains an element for which the username is NIL, i.e., an 
element of the form (NIL . forms), this is interpreted to mean that forms are 
evaluated regardless of user name. This feature can be used to "patch M an 
INTERLISP System when a bug is found, or to change some default for INTERLISP 
at a particular site, e.g., turn off DWIM, perform lowercase[T], etc. 
Individual user initialization will still be performed following this System 
initialization. 
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SECTION 23* 

CLISP - CONVERSATIONAL LISP 


23.1 Introduction 

The syntax of LISP is very simple, in the sense that it can be described 
concisely, but not in the sense that LISP programs are easy to read or write! 
Ihis simplicity of syntax is achieved by, and at the expense of, extensive use 
of explicit structuring, namely grouping through parenthesesization. Unlike 
many languages, there are no reserved words in LISP such as IF, THEN, AND, OR, 
FOR, DO, BEGIN, END, etc., nor reserved characters like +, *, /, =, etc. 2 
This oliminates entirely the need for parsers and precedence rules in the LISP 
interpreter and Compiler, and thereby makes program manipulation of LISP 
programs straightforward. In other words, a program that "looks at" other LISP 
programs does not need to incorporate a lot of syntactic Information. For 
example, a LISP interpreter can be written in one or two pages of LISP Code 
([McCl], pp. 70-71). It is for this reason that LISP is by far the most 
suitable, and frequently used, programming language for writing programs that 
deal with other programs as data, e.g., programs that analyze, modify, or 
construct other programs. 


CLISP was designed and implemented by W. Teitelman. 
[To 15]. 


It is discussed in 


except for parenthcses (and period), which are used for indicating 
structure, and space and end-of-line, which are used for delimiting 
idcntifiers. 
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However, it is precisely this same simplicity of syntax that makes LISP 
programs difficult to read and write (especially for beginners). 'Pushing 
down* is something programs do very well, and people do poorly. As an example, 
consider the following two 'equivalent' sentences: 

"The rat that the cat that the dog that I owned chased caught ate the 
cheese." 

versus 

"I own the dog that chased the cat that caught the rat that ate the 
cheese." 

Natural language contains many linguistic devices such as that illustrated in 
the second sentence above for minimizing embedding, because embedded sentences 
are more difficult to grasp and understand than equivalent non-embedded ones 
(even if the latter sentences are somewhat longer). Similarly, most high level 
Programming languages offer syntactic devices for reducing apparent depth and 
complexity of a program: the reserved words and infix operators used in ALGOL- 
like languages simultaneously delimit operands and operations, and also convey 
meaning to the programmer. They are far more intuitive than parentheses. In 
fact, since LISP uses parentheses (i.e. lists) for almost all syntactic forms, 
there is very little information contained in the parentheses for the person 
reading a LISP program, and so the parentheses tend mostly to be ignored: the 
meaning of a particular LISP expression for people is found almost entirely in 
the words, not in the structure. For example, the following expression 

(COND (EQ N 0) 1) (T TIMES N FACTORIAL ((SUB1 N))) 

is recognizable as FACTORIAL even though there are five misplaced or missing 
parentheses. Grouping words together in parentheses is done more for LISP’s 
benefit, than for the programmer's. 

CLISP is designed to make INTERLI5P programs easier to read and write by 
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permitting the user to employ various infix operators, IF-THEN-ELSE Statements, 
FOR-DO-WHILE-UNLESS-FROM-TO-etc. expressions, which are automatically converted 
to equivalent INTERLISP expressions when they are first interpreted. For 
example, FACTORIAL could be written in CLISP: 

(IF N=0 THEN 1 ELSE N*(FACTORIAL N-l)) 

Note that this expression would become an equivalent COND after it had been 
interpreted once, so that programs that might have to analyze or otherwise 
process this expression could take advantage of the simple syntax. 

There have been similar efforts in other LISP Systems, most notably the MLISP 
language at Stanford [Smil]. CLISP differs from these in that it does not 
attempt to repla ce the LISP syntax so much as to augment it. In fact, one of 
the principal criteria in the design of CLISP was that users be able to freely 
intermix LISP and CLISP without having to identify which is which. Users can 
write programs, or type in expressions for evaluation, in LISP, CLISP, or a 
mixture of both. In this way, users do not have to learn a whole new language 
and syntax in order to be able to use selected facilities of CLISP when and 
where they find them useful. 

CLISP is implemented via the error correction machinery in INTERLISP (see 
Section 17). Thus, any expression that is well-formed from INTERLISP's 
standpoint will never be seen by CLISP (i.e., if the user defined a function 
IF, he would effectively turn off that part of CLISP). This means that 
interpreted programs that do not use CLISP constructs do not pay for its 
availability by slower execution time. In fact, the INTERLISP interpreter does 
not 'know' about CLISP at all. It operates as before, and when an erroneous 
form is encountered, the interpreter calls an error routine which in turn 
invokes the Do-What-I-Mean (DWIM) analyzer which contains CLISP. If the 
expression in question turns out to be a CLISP construct, tho equivalent 
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INTERLISP form is returned to the Interpreter. In addition, the original CLISP 
expression, is modified so that it becomes the correctly translated INTERLISP 
form. In this way, the analysis and translation are done only once. 

Integrating CLISP into the INTERLISP System (instead of, for example, 
implementing it as a separate preprocessor) makes possible Do-What-I-Mean 
foatures for CLISP constructs as well as for pure LISP expressions. For 
example, if the user has defined a function named GET-PARENT, CLISP would know 
not to attempt to interpret the form (GET-PARENT) as an arithmetic Infix 
Operation. (Actually, CLISP would never get to see this form, since it does 
not contain any errors.) If the user mistakenly writes (GET-PRAENT), CLISP 
would know he meant (GET-PARENT), and not (DIFFERENCE GET PRAENT), by using the 
Information that PRAENT is not the name of a variable, and that GET-PARENT is 
the name of a user function whose spelling is "very close" to that of 
GET-PRAENT. Similarly, by using Information about the program's environment not 
readily available to a preprocessor, CLISP can successfully resolve the 
following sorts of ambiguities: 

1) (LIST X*FACT N), where FACT is the name of a variable, means 

(LIST (X*FACT) N). 

2) (LIST X*FACT N), where FACT is not the name of a variable but instead is 
the name of a function, means (LIST X*(FACT N)), i.e., N is FACT’s 
argumont. 

3) (LIST X*FACT(N)), FACT the name of a function (and not the name of a 
variable), means (LIST X*(FACT N)). 

4) cases (I),(Z) and (3) with FACT misspelled! 

The first expression is correct both from the standpoint of CLISP syntax and 
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scmantics and the change would be made without the user being notified. In the 
other cases, the user would be infortned or consulted about what was taking 
place. For example, to take an extreme case, suppose the expression 
(LIST X*FCCT N) were encountered, where there was both a function named FACT 
and a variable named FCT. The user would first be äsked if FCCT were a 
misspelling of FCT. If he said YES, the expression would be interpreted as 
(LIST (X*FCT) N). If he said NO, the user would be asked if FCCT were a 
misspelling of FACT, i.e., if he intended X*FCCT N to mean X*(FACT N). If he 
said YES to this question, the indicated transformation would be performed. If 
he said NO, the System would then ask if X*FCCT should be treated as CLISP, 
since FCCT is not the name of a (bound) variable. 4 If he said YES, the 
expression would be transformed, if NO, it would be left alone, i.e., as 
(LIST X*FCCT N). Note that we have not even considered the case where X*FCCT is 
itself a misspelling of a variable name, e.g., a variable named XFCT (as with 
GET-PRAENT). This sort of transformation would be considered after the user 
said NO to X*FCCT N -> X*(FACT N). The graph of the possible interpretations 
for (LIST X*FCCT N) where FCT and XFCT are the names of variables, and FACT is 
the name of a function, is shown in Figure 23-1 below. 


Through this discussion, we speak of CLISP or DWIM asking the user. 
Actually, if the expression in question was typed in by the user for 
imrnediatn execution, the user is simply informed of the transformation, on 
the grounds that the user would prefer an occasional misinterpretation 
rathor than being continuously bothered, especially since he can always 
retype what he intended if a mistake occurs, and ask the programmer's 
assistant to UNDO the effects of the mistaken operations if neccssary. For 
transformations on expressions in user programs, the user can inform CLISP 
whether he wishes to operate in CAUTIOUS or TRUSTING mode. In the former 
case (most typical) the user will be asked to approve transformations, in 
the latter, CLISP will operate as it does on type-in, i.e., perform the 
ti ansformation after informing the user. 


This question is important because many INTERLISP users already have 
programs that employ identifiers containing CLISP operators. Thus, if 
,LISP encountors the expression A/B in a context where either A or B are 
men^ 6 ' names of variables, it will ask the user if A/B is intended to be 
llisi, in case the user really does have a free variable named A/B. 


/ 
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FCCT- > FCT ? 



FCCT N - > (FACT N) ? 




FIGURE 23-1 
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The final States for the various terminal nodes shown in the graph are: 

1: (LIST (TIMES X FCT) N) 

2: (LIST (TIMES X (FACT N))) 

3: (LIST XFCT N) 

4: (LIST (TIMES X FCCT) N) 

5: (LIST X*FCCT N) 

CLISP can also handle parentheses errors caused by typing 8 or 9 for '(' or 
) . (On most terminals, 8 and 9 are the lower case characters for ’(' and 

i.e., '(’ and '8' appear on the same key, as do ')' and '9'.) For 

example, if the user writes N*8FACT0RIAL N-l, the parentheses error can be 
detected and fixed before the infix operator * is converted to the INTERLISP 
function TIMES. CLISP is able to distinguish this Situation from cases like 
N*B*X meaning (TIMES N 8 X), or N*8X, where 8X is the name of a variable, again 
by using Information about the programming environment. In fact, by 
integrating CLISP with DWIM, CLISP has been made sufficiently tolerant of 
errors that almost everything can be misspelled! For example, CLISP can 
successfully translate the definition of FACTORIAL: 

(IFF N=0 THENN1 ESLE N Ä 8FACTT0RIALNN-1) 

\ 

to the corresponding CONO, while making 5 spelling corrections and fixing the 
parenthesis error.® 

This sort of robustness prevails throughout CLISP. For example, the iterative 


CLISP also contains a facility for converting from INTERLISP back to CLISP, 
so that after running the above incorrect definition of FACTORIAL. the user 
could 1 CLISPIFY 1 the now correct LISP Version 
(IF N=0 THEN 1 ELSE N*(FACTORIAL N-l)). 


to 


obtain 
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Statement permits the user to'say things like : 0 


FOR OLD X FROM M TO N DO (PRINT X) WHILE (PRIMEP X) 

However, the user can also write OLD (X-M), (OLD X-M), (OLD (X-M)), permute the 
order of the operators, e.g., DO PRINT X TO N FOR OLD X-M WHILE PRIMEP X, omit 
either or both sets of parentheses, misspell any or all of the operators FOR, 
OLD, FROM, TO, DO, or WHILE, or leave out the word DO entirely! And, of 
course, he can also misspell PRINT, PRIMEP, M or N! 7 

CLISP is well integrated into the INTERLISP System. For example, the above 
iterative Statement translates into an equivalent INTERLISP form using PROG, 
COND, GO, etc. When the Interpreter subsequently encounters this CLISP 
expression, it automatically obtains and evaluates the translation . 9 Similarly, 
the Compiler "knows" to compile the translated form. However, if the user 
PRETTYPRlNTs his program, at the corresponding point in his function, 
PRETTYPRINT "knows" to print the original CLISP. Similarly. when the user 
edits his program, the editor keeps the translation invisible to the user. If 


This expression should be seif explanatory, except possibly for the 
operator OLD, which says X is to be the variable of iteration, i.e., the 
one to be stcpped from N to M, but X is not to be rebound. Thus when this 
loop finishes execution, X will be equal to N+l. 


In this example, the only thing the user could not misspell is the first X, 
since it specifies the namc of the variable of iteration. The other two 
instances of X could be misspelled. 


(PROG NIL 

(SETQ X M) 

$SLP(COND 

((OR (IGREATERP X N) 
(NOT (PRIMEP X))) 
(RETURN))) 

(PRINT X) 

(SETQ X (ADD1 X)) 

(GO $$LP)) 


See page 23.30, for discussion of how translations are stored. 
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the user modifies the CLISP, the translation is automatically discarded and 
recomputed the next time the expression is evaluated. 

In short, CLISP is not a language at all, but rather a System. It plays a role 
analagous to that of the programmer's assistant (Section 22). Whereas the 
programmer's assistant is an invisible intermediary agent between the user's 
console requests and the INTERLI5P executive, CLISP sits between the user's 
programs and the INTERLISP Interpreter. 

Only a small effort has been devoted to defining the core syntax of CLISP. 
Instead, most of the effort has been concentrated on providing a facility which 
’makes sense' out of the input expressions using context information as well as 
built-in and acquired information about user and System programs. It has been 
said that communication is based on the Intention of the Speaker to produce an 
effect in the recipient. CLISP operates under the assumption that what the 
user said was intended to rcpresent a meaningful Operation, and therefore tries 
vcry hard to make sense out of it. The motivation behind CLISP is not to 
provide the user with many different ways of saying the same thing, but to 
enable him to worry less about the syntactic aspects of his communication with 
the System. In other words, it gives the user a new degree of freedom by 
permitting him to concentrate more on the problem at hand, rather than on 
translation into a formal and unambiguous language. 


23.2 CLISP S yn tax 

Throughout CLISP, a non-atomic form, i.e., a list, can always be substituted 
for a variable, and vice versa, without changing the Interpretation. For 
example, if the value of (F00 X) is A, and the value of (FIE Y) is B, then 
(LIST (FOO X) + (FIE Y)) has the same value as (LIST A+B). Note that the first 
expression consists of a list of Jour elements: the atom 'LIST', the list 
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'(FOO X)' t the atom ' + and the list '(FIE X)’, whereas the second expression, 
(LIST A+B), consists of a list of only two elements: the atom 'LIST' and the 
atom 'A+B'. Since (LIST (FOO X)+(FIE Y)) is indistinguishable from 
(LIST (FOO X)_+_(FIE Y)) because spaces before or after parentheses have no 
effect on the INTERLISP READ program,to be consistent, extra spaces have no 
effect on atomic operands either. In other words, CLISP will treat 
(LIST A+_B), (LIST A_+B), and (LIST A_+_B) the same as (LIST A+B). 


23.3 Infix Operators 


CLISP recognizes the arithmetic infix operators +, *, /, and t. These are 
converted to IPLUS, IDIFFERENCE (or in the case of unary minus, IMINUS), 
ITIMES, IQUOTIENT, and EXPT.^ The usual precedonce rules apply (although these 
can be easily changed by the user),^ i.e., * has higher precedence than + so 
that A+B*C is the same as A+(B*C), and both * and / are lower than t so that 
2*Xt2 is the same as 2*(Xt2). Operators of the same precedence group from left 
to right, e.g., A/B/C is equivalent to (A/B)/C. Minus is binary whenever 
possible, i.e., except when it is the first operator in a list, as in (-A) or 
(-A), or when it immediately follows another operator, as in A*-B.* 3 14 


CLISP does not use its own special READ program because this would require 
the user to explicitly identify CLISP expressions, instead of being able to 
intermix INTERLISP and CLISP. 


The I in IPLUS denotes integer arithmetic, i.e., IPLUS converts its 
argumcnts to integers, and returns an integer value. INTERLISP also 
conlains floating point arithmetic functions as well as mixed arithmetic 
functions (seo Soction 13). CLISP contains a facili.ty for declaring which 
type of arithmetic is to be used, either by making a global declaration, or 
by separate declarations about individual functions or variables. See 
section on declarations, page 23.33. 


The complete order of precedence for CLISP operators is given in 
Figure 23-2, page 23.15. 


There are some do-what-I-mean features associated with Unary minus, as in 
(LIST -X Y). See section on Operation, page 23.64. 
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Note that grouping with parentheses can alwags he used to overridc the normal 

precedcnce grouping. or mhen the user is not sure how a particular expression 
w i ll parse. 


CLISP also recognizes as infix operators =, GT, LT, GE, and LE. 16 as well as 
various predicates, e.g., MEMBER, AND, OR, EQUAL, etc. 10 AND is higher than OR, 
e.g., (X OR Y AND Z) is the same as (X OR (Y AND Z)), and both AND and OR are 
lower than the other infix operators, e.g., (X AND Y EQUAL Z) is the same as 
(X AND ( Y EQUAL z)). All of the infix predicates have lower precedence than 
INTF.RLISP forms, i.e., (FOO X GT FIE Y) is the same as ((FOO X) GT (FIE Y)), 
since it is far more common to apply a predicate to two forms, than to use a 
Boolean as an argument to a function, e.g. (FOO (X GT (FIE Y))). However, 
again, the user can easily change this. 


^°hl C il h tl t ri° nl \ &in9le . cha ™? ter operators, e.g. +, =, etc., can appeai 
th o interior of an atom. All other operators must be set off from identif 
unth spaces. For example. XLTY will not be recognized as CLISP. 


in 

ers 


14 


Note that + in front of a number will disappear when the number is read, 
v F ,°.° * iS int| istinguishable from (FOOX2). This means that 

?Tnfnc not be inte rpreted as CLISP, or be converted to 

2 l > * Similarl y< (E00 X -2) will not be interpreted the same 
as (FOO X-2). To circumvent this, always type a space between the + or - 
and a number if an infix operator is intonded, e.g., write (FOO X + 2). 


15 


Greater Than, Less Than, Greater than or Equal to, and Less than or Equal 
to, respectively. GT, LT. GE, and LE are all affected by the same 

ILESSp atl ° nS 3S + and *’ With the initial default to use IGREATERP and 


10 


Currently the complete list is MEMBER, MEMB, 
LESSP, GRfATERP, FGTP, EQ, NEQ, EQP, EQUAL, 
operators can be easily added, as described 
internal conventions, page 23.68. 


FMEMB, ILESSP, IGREATERP, 
OR, and AND. New infix 
in the section on CLISP 


17 


In some cases, DWIM will be able to diagnose this Situation as a run-on 

S £i 1 i° 9 er T or ’ in which case after the atom is split apart, CLISP will be 
able to perform the indicated transformation. 
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ft 


* A 

: is an infix operator used in CLISP for extracting substructures frora lists, - ^ 
e.g., X:3 specifies the 3rd element of X, (FOO Y)::2 specifies the second tail 
of (FOO Y), i.e., (CDDR (FOO Y)), and Z:l:2 is the second element of the first 
element of Z, or (CADAR Z). Negative numbers may be used to indicate Position 
counting from the end of a list, e.g., X:-1 is the last element of X, or 
(CAR (LAST X)), X::-1 is the last tail, i.e., (LAST X). 10 

* * * 

** is used to indicate assignment, e.g., X«-Y translates to (SETQ X Y). 20 21 In 
conjunction with : and *- can also be used to perform a more general type of 
assignment, namely one involving structure modification. For example, X:2*-Y 
means make the second element of X be Y, in INTERLISP terms 


The rocord facility, page 23.48, provides another way of extracting 
substructures by allowing the user to assign names to the various parts of 
the structure and then retrieve from or störe into the corresponding 
structure by name. The pattern match facility, page 23.36, also can be 
used to extract substructure. : is also used to indicate both record and 
pattern match operations. 


19 

The Interpretation of negative numbers can be explained neatly in terms of 
edit commands: :-n returns what would be the current expression after 
executing the command -n, and ::-n returns what would be the current 
expression after executing -n followed by UP. 

20 

If x does not have a value, and is not the name of one of the bound 
variables of the function in which it appears, spelling correction is 
attempted. However, since this may simply be a case of assigning an 
initial value to a new free variable, DWIM will always ask for approval 
before making the correction. 


Note that an atom of the form X«-Y, appearing at the top level of a PROG, 
will not be recognized as an assignment Statement because it will be 
interpreted as a PROG labe! by the INTERLISP Interpreter, and therefore 
will not cause an error, so DWIM and CLISP will never get to see it. 
Instead, one must write (X«-Y). 
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(RPLACA (CDR X) Y). 22 23 Negative numbers can also be used, e.g., X:-2«-Y. 24 «- 
is also used to indicate assignment in record operations, page 23.48, and 
pattern match operations, page 23.36. 

*■' has different precedence on the left from on the right. On the left, ♦- is a 
"tight" operator, i.e., high precedence, so that A+B*-C is the same as A+(B*-C). 
On the right, *- has broader scope so that A«-B+C is the same as A*-(B+C). 

On typein, $*-form (alt-mode*-form) is equivalent to set the "last thing 

2ö 

mentioned". For example, immediately after examining the value of 
LONGVARIABLENAME, the user could set it by typing $*• followed by a form. 


23.4 Prefix Onerators 

CLISP recognizes ' and ~ as prefix operators. ' means QUOTE when it is the 
first character in an identifier, and is ignored when it is used in the 
interior of an identifier. Thus, X='Y means (EQ X (QUOTE Y)), but X=CAN'T 
means (EQ X CAN'T), not (EQ X CAN) followed by (QUOTE T). This enables users 
to have variable and function names with ' in them (so long as the ' is not the 
first character). 


Note that the value of this Operation is the value of rplaca, which is the 
corresponding node . ‘ ~ 


The user can indicate he wants /rplaca and /rplacd used (undoable Version 
of rßi«ca and r placd , see Section 22), or frplaca and frplacd (fast 
versions of rplaca and rplacd , see Section 5), by means of declarations 
(page 23.33). The initial default is for rplaca and rplacd . 


which translates to (RPLACA (NLEFT X 2) Y). 


i.e. is equivalent to (SETQ lastword form). See Section 17. 
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Following all operators are ignored for the rest of the identifier, e.g., 
•*A means (QUOTE *A), and 'X=Y means (QUOTE X=Y), not (EQ (QUOTE X) Y). 20 

On typein, '$ (i.e. ’alt-mode) is equivalent to (QUOTE value-of-lastword) (see 
Section 17). For example, after calling prettyprint on LONGFUMCTION, the user 
could move its definition to F00 by typing (MOVD '$ 'FOO). 27 

- means NOT. - can negate a form, as in ~(ASS0C X Y), or -X, or negate an 
infix operator, e.g., (A ~GT B) is the same as (A LEQ B). Note that ~A=B means 
(EQ (NOT A) B). 


To write (EQ (QUOTE X) Y), one writes Y='X, or 'X_=Y. This is one place 
where an extra space does make a difference. 


27 

Not (MOVD $ ’FOO), which would be equivalent to (MOVD LONGFUNCTION 'FOO), 
and would (probably) cause a U.B.A. LONGFUNCTION error, nor MOVD(S FOO), 
which would actually move the definition of $ to FOO, since DWIM and the 
spelling corrector would never be invoked. 
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Order of Precedence of CLISP operators 


» 


*■ (left precedence) 

- (unary), - 

r 

*, / 

+, - (binary) 

«- (right precedence) 

INTERLISP forms 

LT, GT, EQUAl, MEMBER, etc. 

AND 

OR 

IF, THEN, ELSEIF, ELSE 
iterative Statement operators 


Figure 23-2 


«- has a different left and right precedence, e.g., A+B*-C+D is the same as 
A+(B*-(C+D)). In other words, has minimal scope on the left and maximal 
scope on the right. 


2 ^ 

When ~ nogates an operator, e.g., ~=, ~LT, the two operators are treated as 
a single operator whose precedence is that of the second operator. When ~ 
nogates a function, e.g., (~FOO X Y), it negates the whole form, i.e., 
(~(FOO X Y)). 
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23.5 Constructing Lists - the < t > operators 3 ** 

Angle brackets are used in CLISP to indlcate list construction. The appearance 
of a '<’ corresponds to a '(' and indicates that a list is to be constructed 
containing all the elements up 1;o the corresponding *>'. For example, <A B <C>> 
translates to (LIST A B (LIST C)). ! can be used to indicate that the next 
expression is to be inserted in the list as a segment, e.g., <A B ! C> 
translates to (CONS A (CONS B C)) and <! A ! B C> to (APPEND A B (LIST C)). M 
is used to indicate that the next expression is to be inserted as a segment, 
and furthermore, all list structure to its right in the angle brackets is to be 
physically attached to it, e.g., <!! A B> translates to (NCONC1 AB), and 
<!!A !B !C> to (NCONC A (APPEND B C)). 31 32 Note that <,!,!!, and > need not 
be separate atoms, for example, <A B ! C> may be written equally well as 
< A B !C >. Also, arbitrary INTERLISP or CLISP forms may be used within angle 
brackets. For example, one can write <FOO-(FIE X) ! Y> which translates to 
(CONS (SETQ FOO (F1E X)) Y). CLISPIFY converts expressions in cons . list , 
appond , nconc . nconcl, /nconc , and /nconcl into equivalent CLISP expressions 
using <, >, !, and !!. 

Note: angle brackets differ from other CLISP operators in that they act more 
like brackets than operators. For example, <A B 'C> translates to 
(LIST A B (QUOTE C)) even though followlng ', all operators are ignored for the 


The <,> operator was written by P.C. Jackson. 

Of 

Not (NCONC (APPEND AB) C), which would have the same value, but would 
attach C to B, and not attach either to A. 


32 


The user can indicate /nconc or /nconcl be used instead of nconc and nconcl 
by declarations. 




rest of the identifier. 33 Note however that <A B *_C> D> is äquivalent to 
(LIST A B (QUOTE C>) D). 


23.6 IF. TUEN, ELSE 

CL. ISP translates expressions employing IF|THEN|ELSEIF|ELSE into equivalent 
conditional expressions. The Segment between IF|ELSEIF and the next THEN 
corresponds to the predicate of a COND clause, and the segment between THEN and 
the next ELSE|ELSEIF as the consequent(s). ELSE is the same as ELSEIF T THEN. 

IF, TUEN, ELSE, and ELSEIF are of lower precedence than all infix and prefix 
operators, as well as INTERLISP forms, so that parentheses can be omitted 
between IF| ELSEIF, and THEN. For example, (IF F00 X Y THEN --) is equivalent 
to (IF (FOO X Y) THEN --) 34 Similarly, CLISP treats (IF X THEN FOO X Y ELSE 
“-> as equivalent to (IF X THEN (FOO X Y) ELSE ~) because it does not 'make 
sense' to evaluate a variable for effect. In other words, even if FOO were 
also the name of a variable, (COND (X FOO X Y)) doesn't make sense. 
Essentially, CLISP determines whether the segment between THEN and the next 
ELSE|ELSEIF corresponds to one form or soveral and acts accordingly. 3Ö Thus, 
(IF -- THEN (FOO X) Y ELSE --) corresponds to a clause with two consequents. 
Similarly, (IF -- THEN FOO*-X Y ELSE --) corresponds to a clause with two 


Only if a previous unmatched < has been seen, e.g. (PRINT 'A>B1 will 
print the atom A>B. 


34 


* S V 1 ® name of a variable, IF FOO THEN -- is translatec 
(COND (FOO --)) even if FOO is also the name of a function. If 
functional Interpretation is intendod, FOO should bo enclosed 
parentheses, e.g., IF (FOO) THEN Similary for IF -- THEN FOO ELSEIF 


as 

the 

in 


occasionally interacting with the user to resolve ambiguous cases. 
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consequents, and is äquivalent to (IF -- THEN (FOO«-X) Y ELSE --). 


30 


23.7 Iterative Statements 

The following is an example of a CLISP iterative Statement: 

(WHILE X-(READ)~='STOP DO (PRINT (EVAL X))) 

This Statement says "READ an expression and set X to it. If X is not equal to 
the atom STOP, then evaluate X, print the result, and iterate ." 37 

The i.s. (iterative Statement) in its various forms permits the user to specify 
complicated iterative Statements in a straightforward and visible manner. 
Rather than the user having to perform the mental transformations to an 
equivalent INTERLISP form using PROG, MAPC, MAPCAR, etc., the System does it 
for him. The goal was to provide a robust and tolerant facility which could 
make sense" out of a wide dass of iterative Statements. Accordingly, the 
user should not feel obliged to read and understand in detail the description 
of each operator given below in order to use iterative Statements. 

Currently, the following i.s. operators are implemented: FOR, BINO, OLD, IN, 
ON, FROM, TO, BY, WHEN, WHILE, UNTIL, UNLESS, COLLECT, JOIN, DO, SUM, COUNT, 
ALWAYS, NEVER, THEREIS, AS, FIRST, FINALLY, EACHTIME. Their function is 


36 


To write the equivalent of a singleton cond clause, i.e., a clause with a 
predicate but no consequent, write either nothing following the THEN, or 
the THEN entirely, e.g., (IF (F00 X) THEN ELSEIF --) or 

(IF (FOO X) ELSEIF --), meaming if (F00 X) is not NIL, it is the value of 
the cond. 


37 


The Statement translates to: 
(PROG NIL $$LP (COND ((EQ (SETQ 
(PRINT (EVAL X)) (GO SSLP)) 


X (READ)) (QUOTE STOP)) (RETURN))) 
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explained below. New operators can be defined as described on page 23.28. 
Misspollings of operators are recognized and corrected. The order of 
appearance of operators is not important; 33 CLISP scans the entire Statement 
before it begins to construct the equivalent INTERLISP form. 


DO form specifies what is to be done at each iteration. DO with no 

other operator specifies an infinite loop. If some explicit 
or implicit terminating condition is specified, the value of 
the i.s. is NIL. Translate to MAPC or MAP whenever 
possible. 


COLLECT form like DO, except specifies that the value of form at each 

iteration is to be collected in a list, which is returned as 
the value of the i.s. when it terminates. Translates to 
MAPCAR or MAPLIST whenever possible. 

OOIN form like DO, except that the values are NCONCed. Translates to 

MAPCONC or MAPCON whenever possible. 3 ® 

SUM form like DO, except specifies that the values of form at each 

iteration be added together and returned as the value of the 
i.s., e.g. (FOR I FROM 1 TO 5 SUM It2) is equal to 
1+4+9+16+25. 40 


DWIM and CLISP are invoked on iterative Statements because car of the i.s. 
is not the name of a function, and hence generates an error. If the user 
defines a function by the samo name as an i.s. operator, e.g. WHILE, TO, 
etc., the operator will no longer have the CLISP Interpretation when it 
appears as car of a form, although it will continue to be treated as an 
i.s. operator if it appears in the interior of an i.s. 


39 

/NCONC, /MAPCONC, and /MAPCON are used when the declaration UNDOABLE is in 
effect. 


iplus, fplus, or plus will be used for the translation depending on the 
declarations in effect. 
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COUNT pred like DO, except counts number of times that pred is true, 

and returns that count as its value. 

ALWAYS pred like DO, except returns T if the value of pred is non-NIL 

for all iteraitions (returns NIL as soon as the value of pred 
is NIL), e.g. (FOR X IN Y ALWAYS (ATOM X)) is the same as 
(EVERY Y (FUNCTION ATOM)). 


NEVER pred like ALWAYS, except returns T if the value of pred is neuer 

true, i.e. NEVER pred is the same as ALWAYS ~pred. 

THEREIS pred returns the first value of the i.v. for which pred is 

non-NIL, e.g. (FOR X IN Y THEREIS NUMBERP) returns the 
first number in Y, and is equivalent to 
(CAR (SOME Y (FUNCTION NUMBERP ))). 4l 

DO, COLLECT, JOIN, SUM, ALWAYS, NEVER, and THEREIS are exnmples of a certain 
kind of i.s. operator called an i.s.type . The i.s.type specifies what is to be 
done at each iteration. Each i.s. must have one and only one i.s.type . The 
function i-s.type , page 23.28, provides a means of defining additional 
i.s.type s. 


FOR var specifies the.variable of iteration, or i.v., which is used 

in conjunction with IN, ON, FROM, TO, and BY. The variable 
is rebound for the scope of the i.s., except when modified 
by OLD as described below. 


41 


THEREIS returns the i.v. instead of the tail (as does the function some) in 
order to provide an interpretation consistent with Statements such as 
(FOR I FROM 1 TO 10 THEREIS --), where there is no tail. Note that 
(SOME Y (FUNCTION NUMBERP)) is equivalent to 
(FOR X ON Y THEREIS (NUMBERP (CAR X))). 
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FOR vars 


vars a list of variables, e.g., FOR (X Y Z) IN The first 
variable is the i.v., the rest are dummy variables. See 
BIND below. 

indicates var is not to be rebound, e.g., 
(FOR OLD X FROM 1 TO N DO — UNTIL —), 

BIND var, vars used to specify dummy variables, e.g., FOR (X Y Z) IN -- is 

equivalent to FOR X BIND (Y Z) IN BIND can be used 
without FOR. For example, in the i.s. shown on page 23.18, 
X could be made local by writing 
(BIND X WHILE X-(READ)~='STOP...). 


Note: 
(FOR OLD 


FOR, OLD, and BIND variables can be initialized by using 
(X*-form) BIND (Y*-form)...). 


0 * 0 »» 


specifies that the i.s. is to iterate down a list with the 
i.v. being reset to the corresponding element at each 
itcration. For example, FOR X IN Y DO -- corresponds to 
(MAPC Y (FUNCTION (LAMBDA (X) --))). If no i.v. has been 
specified, a dummy is supplied, e.g., IN Y COLLECT CADR is 
equivalent to (MAPCAR Y (FUNCTION CADR)). 


same as IN except that the i.v. is reset to the 
corresponding t ail at each Iteration. Thus IN corresponds 
to MAPC, MAPCAR, and MAPCONC, while ON corresponds to MAP, 
MAPLIST, and MAPCON. 


specifies that the i.s. is to iterate down var, with var 
itself being reset to the corresponding tail at each 
iteration, e.g., after (FOR X IN OLD L DO -- UNTIL --) 
finishes, L will be some tail of its original value. 
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IN OLD (var*-form) 

ON OLD var 

ON OLD (var*-form) 

WHEN pred 

UNLESS pred 

WHILE pred 

UNTIL pred 

UNTIL n 

FROM form 

TO form 


same as IN OLD var . except var is first set to value of 

form . 

same as IN OLD var except tho i.v. is reset to the current 
value of var at each iteration, instead of to car[var]. 

same as ON OLD var . except var is first set to value of 

form . 

provides a way of excepting certain iterations. For 

example, (FOR X IN Y COLLECT X WHEN NUMBERP X) collects only 
the elements of Y that are numbers. 

same as WHEN except for the difference in sign, i.e., WHEN Z 
is the same as UNLESS ~Z. 

provides a way of terminating the i.s. WHILE pred evaluates 
pred before each iteration, and if the value is NIL, exits. 

Same as WHILE except for difference in sign, i.e., 
WHILE PRED is equivalent to UNTIL -PRED. 

n a number, equivalent to UNTIL (i.v. GT n). 

is used to specify an initial value for a numerical i.v. 

The i.v. is automatically incremented by 1 after each 
iteration (unless BY is specified). If no i.v. has been 
specified, a dummy i.v. is supplied and initialized, e.g., 
(COLLECT SQRT FROM 2 TO 5) returns (1.414 1.732 2.0 2.236). 

is used to specify the final value for a numerical i.v. If 
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FROM is not specified, the i.v. is initialized to 1. If no 
i.v. has been specified» a dummy i.v. is supplied and 
initialized. If BY is not specified» the i.v. is 
automatically incremented by i after each Iteration. 42 When 
the i.v, is definitely being incremented, i.e. either BY is 
not specified» or its Operand is a positive number, the i.s. 
terminates when the i.v. exceeds the value of form (whlch is 
reevaluated each Iteration) e.g.» (FOR X FROH 1 TO 10 --), 
is equivalent to (FOR X FROM 1 UNTIL (X 6T 10) --). 

Similarly, when the i.v. is definitely being decremented the 
i.s. terminates when the i.v. becomes less than the value of 
form (see description of BY). 

BY X (with IN/ON) If IN or ON have been specified, the value of x determines 

the tail for the next iteration, which in turn determines 
the value for the i.v. as described earlier, i.e. the new 
i.v. is car of the tail for IN, the tail itself for ON. In 
conjunction with IN, the user can refer to the current tail 
within x by using the i.v., e.g. 
(FOR Z IN L BY (CÖOR Z) ...). At translation time, the name 
of the internal variable which holds the value of the 
current tail is substituted for the i.v. throughout x. For 
example, (FOR X IN Y BY (CDR (MEMB 'F00 (COR X))) COLLECT X) 
specifies that after each iteration, cdr of the current tail 
is to be searched for the atom F00, and (cdr of) this latter 
tail to be used for the next iteration. 


except when both the operands to TO and FROM are numbers, and TO’s Operand 
is less than FROM's Operand, e.g. FROM 10 TO 1, in which case the i.v. is 
decremented by 1 after each iteration. In this case, the i.s. terminates 
when the i.v. becomes less than the value of form. 
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BY x (without IN/ON) If IN or ON have not been used, BY specifies how the 

i.v. itself is reset at each Iteration. If FROM or TO have 
been specified, the i.v. is known to be numerical, so the 
new i.v. is computed by adding the value of x 
(which is reevaluated each iteration) to the current value 
of the i.v., e.g., (FOR N FROM 1 TO 10 BY 2 COLLECT N) makes 
a list of the first five odd numbers. 

If x is a positive number,^ the i.s. terminates when the 
value of the i.v. exceeds the value of TO's Operand. If x 
is a negative number, the i.s. terminates when the value of 
the i.v. becomes less than TO's Operand, e.g. 
(FOR I FROM N TO M BY -2 UNTIL (I LT M) ...). Otherwise, 
the terminating condition for each iteration depends on the 
value of x for that iteration: if x < 0, the test is whether 
the i.v. is less than TO's Operand, if x > 0 the test is 
whether the i.v. exceeds TO's Operand, otherwise if x=0, the 
i.s. terminates unconditionally. 44 

If FROM or TO have not been specified, the i.v. is simply 


reset to 

the value of x 

after 

each iteration, 

e.g. 

(FOR I FROM 

(FOR I«-N BY 

N BY 2 ...) 

(IPLUS I 2) ...). 

is 

equivalent 

to 


x itself, not its value, which in general CLISP would have no way of 
knowing in advance. 


44 

A temporary variable is used so that x is only evaluated once. However, 
codo for TO's Operand appears twice in the translation, even though it is 
evaluated only once. 
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FIRST form form is evaluated once before the first iteration, e.g. 

(FOR X Y Z IN L -- FIRST (F00 Y Z)), and FOO could be used 
to initialize Y and Z. 

FINALLY form form is evaluated after the i.s. terminates. For example, 

(FOR X IN L BIND Y*0 DO (IF ATOM X THEN Y-Y+l) 

FINALLY (RETURN Y)) will return the number of atoms in L. 

EACHTIME form form is evaluated at the beginning of each iteration before, 

and regardless of, any testing. For example, consider (FOR I 
FROM 1 TO N DO (... (FOO I) ...) UNLESS (... (FOO I) . ..) 
UNTIL (... (FOO I) ...)). The user might want to set a 
temporary variable to the value of (FOO I) in order to avoid 
computing it three times each iteration. However, without 
knowing the translation, he would not know whether to put 
the assignment in the Operand to DO, UNLESS, or UNTIL, i.e. 
which one would be executed first. He can avoid this 
Problem by simply writing EACHTIME J*-(FOO I). 

AS vor is used to specify an iterative Statement involving more 

than one iterative variable, e.g. 

(FOR X IN Y AS U IN V DO --) corresponds to mapZc . The i.s. 
terminates when any of the terminating conditions are met, 
e.g. (FOR X IN Y AS I FROM I TO 10 COLLECT X) makes a list 
of the first ten elements of Y, or however many elements 
there are on Y if less than 10. 
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Exccpt in the case of termination due to the appearance of a RETURN in some 
Operand. See page 23.26. Thus in (FOR X IN Y THEREIS NUMBERP FINALLY --) 
the FINALLY Operand would be evaluated if Y were exhausted, but not if a 
number was found. 
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The Operand to AS, var, specifies the new i.v. For the 
remainder of the i.s., or until another AS is encountered, 
all operators refer to the new i.v. For example, 
(FOR I FROM I TO NI AS J FROM 1 TO N2 BY 2 

AS K FROM N3 TO 1 BY -1 --) termlnates when I exceeds NI, or 
J exceeds N2, or K becomes less than i. After each 
iteration, I is incremented by 1, J by 2, and K by -1. 


Miscellaneous 


1. Lowercase versions of all i.s. operators are equivalent to the uppercase, 
e.g., (for X in Y ...). 

2. Each i.s. operator is of lower precedence than all INTERLISP forms, so 
parentheses around the operands can be omitted, and will be supplied where 
necessary, e.g., BIND (X Y Z) can be written BIND X Y Z, OLD (X«-form) as 
OLD X-form, WHEN (NUMBERP X) as WHEN NUMBERP X, etc. 

3. RETURN or GO may be used in any Operand. RETURN means return from the i.s. 
(with the indicated value), not from the function in which the i.s appears. 
GO refers to a label elsewhere in the function in which the i.s. appears, 
except for (GO ITERATE), which means transfer control to the iterate 
Portion of the loop, i.e. that part that resets the tail, increments the 
counter, or whatever, in preparation for the next iteration. The 
appropriate label will be substituted for ITERATE. 

4. In the case of FIRST, FINALLY, EACHTIME, or one of the i.s.types, e.g. 00, 
COLLECT, SUM, etc., the Operand can consist of more than one form, e.g., 
COLLECT (PRINT X:l) X:2, in which case a PROGN is supplied. 

5. Each Operand can be the name of a function, in which case it is applied to 
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the (last) i.v., 46 47 48 e.g., FOR X IN Y DO PRINT WHEN NUMBERP, 1s the 
same as FOR X IN Y DO (PRINT X) WHEN (NUMBERP X). Note that the i.v. need 
not be explicitly specified, e.g., IN Y DO PRINT WHEN NUMBERP will work. 


Errors in Iterative Statements 

An error will be generated and an appropriate diagnostic printed if any of the 
following conditions hold: 

1. Operator with null Operand, i.e. two adjacent operators, as in FOR X IN Y 
UNTIL DO -- 

2. Operand consisting of more than one form (except as Operand to FIRST, 
FINALLY, or one of the i.s.types), e.g., FOR X IN Y (PRINT X) COLLECT 

3. Same operator appears twice. 

4. Both IN and ON used on same i.v. 

5. FROM or TO used with IN or ON on same i.v. 

6. More than one i.s.type, e.g. a DO and a SUM. 

In 3, 4, or 5, an error is not generated if an intervening AS occurs. 

If an error occurs, the i.s. is left unchanged. 


For i.s.types, e.g. DO, COLLECT, JOIN, the function is always applied to 
the first i.v. in the i.s., whether explicity named or not. For example, 
(IN Y AS I FROM 1 TO 10 DO PRINT) prints elements on Y, not integers 
between 1 and 10. 


Note that this feature does not make much sense for FOR, OLD, BIND, IN, or 
ON, since they "operate" before the loop Starts, when the i.v. may not even 
be bound. 


In the case of BY in conjunction with IN, the function is applied to the 
current tail e.g., FOR X IN Y BY CDDR ..., is the same as FOR X IN Y BY 
(CDDR X)... See page 23.23. 
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If no DO, COLLECT, ÜOIN or any of the other i.s.types are specified, CLISP will 
first attempt to find an Operand consisting of more than ono form, e.g., 
FOR X IN Y (PR I NT X) WHEN ATOM X, and in this caso will insert a DO after tho 
first form. (In this caso, condition 2 is not considered to bo mot, and an 
error is not generated.) If CLISP cannot find such an Operand, a warning 
mossage is printed: NO DO, COLLECT, OR JOIN: followed by the i.s. However, the 
i.s. is still translated, e.g. (WHILE form) can be used to execute form 
repeatedly until its value is NIL. 

Similarly, if no terminating condition is detected, i.e. no IN, ON, WHILE, 
UNTIL, TO, or a RETURN or GO, a warning message is printed: 
POSSIBLE NON-TERMINATING ITERATIVE STATEMENT: followed by the i.s. However, 
since the user may be planning to terminate the i.s. via an error, control-E, 
or a retfrom from a lower function, the i.s. is still translated. 


Defining New Iterative Statement Operators 

The i.s.type specifies what is to be done at each Iteration, e.g. collecting 
values on a list, adding numbers, searching for a particular condition, etc. 
Each i.s. can have one and only one i.s.type. The function i,s.type provides a 
means of defining new i.s.types. 

i ,s.type[namo;form;init;val] name is the name of the i.s.type. form is the 

form to be evaluated at each iteration. In form SSVAL 
can be used to reference the value being assembled, 
I.V. to reference the current value of the i.v., and 
BODY to reference the body of the Statement, i.e. 
name 's Operand. 

For example, for COLLECT, form would be (SETQ SSVAL (NC0NC1 SSVAL BODY)), for 
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SUM: ($SVAL«-$$VAL+B0DY), 4P for NEVER: (AND BODY (RETURN NIL)), and for THEREIS: 
(AND BODY (RETURN I.V.)). 


init specifies the initial value for SSVAL, e.g. for 
SUM, init is 0. val specifies the value to be returned 
when the i.s. terminates. 

i.s.type is undoable. 


Examples: 

1) To define RCOLLECT, a Version of COLLECT which uses cons instead of nconcl 
and then reverses the list of values: 

i.s.type[RCOLLECT;(SETQ SSVAL (CONS BODY SSVAL));NIL;(DREVERSE SSVAL)] 

2) To define TCOLLECT, a Version of COLLECT which uses tconc : 

i.s.type[TCOLLECT;(TCONC SSVAL BODY); (CONS); (CAR SSVAL)] v 

3) To define PRODUCT: 

i.s. typet PRODUCT; ($SVAL-SSVAL*BODY); 1;SSVAL] 


■LrA:typ_o performs the appropriate modifications to the property list for name . 
as well as for the lower case Version of name, and also Updates the appropriate 
spolling lists. 

type can also be used to define synonyms for all i.s. operators, (not just 
those that are i.s.typos), by calling i.s. type with form an atom, e.g. 
i.s.typefWHERE;WHEN] makes WHERE be the same as WHEN. Similarly, following 


SSVAL+BODY is used instead of (IPLUS SSVAL BODY), so that the choice of 
function used in the translation, i.e. iplus , fplus , or plus, will be 
determined by the declarations then in effect. 
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i.s.type[ISTHERE;THEREIS] one can write (ISTHERE ATOM IN Y), and following 
i . s. type[FIND;FOR] and i.s.type[SUCHTHAT;THEREIS], one can write 
(FIND X IN Y SUCHTHAT X MEMBER Z). 60 

This completes the description of iterative Statements. 


23.8 CLISP Translations 


The translation of infix operators and IF|THEN|ELSE Statements are handled in 
CLISP by rcplacing the CLISP expression with the corresponding INTERLISP 
expression, and discarding the original CLISP, because (1) the CLISP expression 
is easily recomputable (by clispify ). 61 and (2) the INTERLISP expressions are 
simple and straightforward. In addition to saving the space required to retain 
both the CLISP and the INTERLISP, another reason for discarding the original 
CLISP is that it may contain errors that were corrected in the course of 
translation, e.g. the user writes FOO-FOOO-.l, N*8F00 X), etc. If the original 
CLISP were retained, either the user would have to go back and fix these errors 
by hand, thereby negating the advantage of having DWIM perform these 
corrections, or eise DWIM would have to keep correcting these errors over and 
over. 

Where (1) or (2) are not the case, e.g. with iterative Statements, pattern 


In the current System, WHERE is synonymous with WHEN, SUCHTHAT and ISTHERE 
with THEREIS, and FIND with FOR. 


Note that clis pify is sufficiently fast that it is practical for the user 
to conrigurc his INTERLISP System so that all expressions are automatically 
£li5Rifyed immediately before they are presented to him. For example, he 
can defino an edit macro to use in place of P which calls clispify on the 
current expression before printing it. Similarly, he can inform prettyprint 
to call clispify on each expression before printing it, etc. 
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matches, record expressions, etc. 62 63 the original CLISP is retained (or a 
slightly modified vorsion thereof), and tho translation is stored elsewhere, 
usually in clisparray , a hash array. The Interpreter automatically checks 
this array using gethash when given a form car of which is not a function. 
Similarly, the Compiler performs a gethash when given a form it does not 
recognize to see if it has a translation, which is then compiled instead of the 
form. Whenever the user c /langes a CLISP expresson by editing it, the editor 
automatically deletes its translation (if one exists), so that the next time it 
is evaluated or dwimified, the expression will be retranslated. The function 
2 £t and the edit commands PPT and CLISP: are available for examining 
translations, see page 23.75. Similarly, if prettytranflg is T, prettyprlnt 
will print the translations instead of the corresponding CLISP expression. 6 ^ 

If" PAi.s parray is NIL, 66 translations are implemented instead by replacing the 
CLISP expression by an expression of the form 
(CLISPX_ translation . CLISP-expression), 66 e.g. (FOR X IN Y COLLECT (CAR X)) 


For example, the translation of X:5:3 is (CADDR (CAR (CDDDDR X))), which is 
difficult to read. Therefore, such expressions are handled by retaining the 
CLISP and storing the translation elsewhere, as described below. 

5 3 

The handling of translations for IF|THEN|ELSE Statements is determined by 
the value of c lispiftranfl g. If T, the translations are stored elsewhere, 
and the (modified) CLISP retained as described below. If NIL, the 
corresponding COND replaces the IF|THENIELSE expression. The initial value 
of clispiftranflg is NIL. 


Note that the user can always examine the translation himself by performing 
(GETHASH expression CLISPARRAY). 


cl is iiarray is initially NIL, and #clisparray is its size. The first time a 
translation is performed, a hash array of this size is created. Therefore 
to disable clisparray , both it and #clisparray should be set to NIL. 


CLISPX is an atom consisting of the six ch.aracters C, L, I, S, P, and 
spoce, which must be preceded by the escape character % in order for it to 
be included as a part of an identifier. The intent was to deliberately 
make this atom hard to type so as to make it unlikely that it would 
othorwise appear in a user's program or data, since the editor and 
prettyprint treat it very specially, as described above. 
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would be replaced by 

(CLISP%_ (MAPCAR Y (FUNCTION CAR)) FOR X IN Y COLLECT (CAR X)). Both the 
editor nnd prottyprint know about CLISP%_ expressions and treat them specially 
by suppressing the translations: Prettyprint prints just the CLISP 
(unless ßjlgtty_ tranflg =T, as described below), while the editor makes the 
translation completely invisible, e.g. if the current expression were the above 
CLISP%_ expression, F MAPCAR would fall to find the MAPCAR, and (3 ON) would 
replace IN with ON, i.e. the editor operates as though both the CLISP%_ and the 
MAPCAR were not there. As with translations implemented via clisparray , if the 
CLISP expression is changed by editing it, the translation is automatically 
deleted. 

CLISP%_ expressions will interpret and compile correctly: CLISP%_ is defined as 
an nlambda nospread function with an approprlate Compiler macro. Note that if 
the user sets clisparray to NIL, he can then break, trace, or advise CLI5P%_ to 
monitor the evaluation of iterative Statements, pattern matches, and record 
operations. This technique will work even if clisparray was not NIL at the time 
the expressions were originally translated, since setting clisparray to NIL 
will effectively delete the translations, thereby causing the CLISP expressions 
to be retranslated when they arg first encountered. Note that if the user only 
wishes to monitor the CLISP in a certain function, he can accomplish this by 
embedding its definition in (RESETVAR CLISPARRAY NIL *). 

If a CLISP%_ expression is encountered and clisparray is not NIL, the 
translation is transferred to the hash array, and the CLISP%_ expression 
replaced by just the CLISP. Setting prettytranflg to CLISP%_ causes 
to print CLISP expressions that have been translated in the form of 
(CLISP%_ translation . CLISP-expresslon), even if the translation is currently 
stored in clis parray . These two features together provide the user with a way 
of dumping CLISP expressions together with their translations so that when 
reloadcd (and run or dwimified), the translations will automatically be 
transferred to clisparray . 
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In summnry, if p rettytranfIg =NIL, only the CLI5P is printed (used for producing 
listings). If prettytranflg =T, only the translation is printed (used for 
exporting programs to Systems that do not provide CLISP, and to examine 
translations for debugging purposes ), 67 If prettytranflg =CLISPX . an expression 
of the form (CLISPX_ translation . CLISP) is printed, (used for dumping both 
CLISP and translations). The preferred methöd of storing translations is in 
c lis pjvrrny, so that if any CLISPX_ expressions are converted while clisparray 
is not NIL, they will automatically be converted so as to use clisparray . If 
c1is parra y= NIL, they will be left alone, and furthermore, new translations will 
be implemented using CLISPX_ expressions. 


23.9 Declaration s 


Dcclarations are used to affect the choice of INTERLISP function used as the 
translation of a particular operator. For example, A+B can be translated as 
either (IPLUS A B), (FPLUS A B), or (PLUS A B), depending on the declaration in 
effect. Similarly X:l«-Y can mean (RPLACA X Y), (FRPLACA X Y), or 
(/RPLACA X Y), and <!!A B> either (NC0NC1 A B) or (/NC0NC1 A B). The table 
below gives the declarations available in CLISP, and the INTERLISP functions 
they indicate. The choice oj function on all CLISP transformations are 
affccted bu these declarations, i.e. iteraive Statements , pattem matches , 
record operations, as mell as infix and prefix operators. 

The user can make (change) a global declaration by calling the function 
CLISPDEC and giving it as its argument a list of declarations, e.g., 
(CLISPDCC (QUOTE (FLOATING UNDOABLE))). Changing a global declaration does not 
affect the speed of subsequent CLISP transformations, since all CLISP 


67 


Note that makefile will reset prettytranf lg to T, using resetvar. when 
called with the Option NOCLISP. - 




transformation aro table drivem (i.e. proporty list), and global declarations 
aro accompllshod by maklng tho appropriate Internal changes to CLISP at the 
timo of tho declaration. If a function employs local declarations (described 
below), there will be a slight loss in efficiency owing to the fact that for 
each CLISP transformation, the declaration list must be searched for possibly 
relevant declarations. 


Declarations are implemented in the Order that they are given, so that later 
declarations override earlier ones. For example, the declaration FAST 
specifies that FRPLACA, FRPLACD, FMEMB, and FLAST be used in place of RPLACA, 
RPLACD, MEMB, and LAST; the declaration RPLACA specifies that RPLACA be used. 
Therefore, the declarations (FAST RPLACA RPLACD) will cause FMEMB, FLAST, 
RPLACA, and RPLACD to be used. 

The initial global declaration iS INTEGER and STANDARD. 

Table of Declarations 


Declaration 

INTERLISP functions to be used 


INTEGER or FIXED 

IPLUS, IMINUS, IDIFFERENCE, ITIMES, IQUOTIENT, 
IGREATERP 

ILESSP, 

FLOATING 

FPLUS, FMINUS, FDIFFERENCE, FTIMES, FQUOTIENT, 
FGTP 

LESSP, 

MIXED 

PLUS, MINUS. DIFFERENCE, TIMES, QUOTIENT, 
GREATERP 

LESSP, 

FAST 

FRPLACA, FRPLACD, FMEMB, FLAST, FASSOC 


UNDOABLE 

/RPLACA, /RPLACD, /NCONC, /NC0NC1, /MAPCONC, /MAPCQN 

STANDARD 

RPLACA, RPLACD, MEMB, LAST, ASSOC, NCONC, 
MAPCONC, MAPCON 

NCONC1, 

RPLACA, RPLACD, 
/RPLACA, ... 

corresponding function 
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Local Declarations 


The user can also make declarations affecting a selected function or functions 
by inserting an expression of the form (CLISP: . declarations) immediately 
following the argument list, i.e., as CADDR . of the definition. Such local 
declarations take precedence over global declarations. Declarations affecting 
selected variables can be indicated by lists, where the first element is the 
name of a variable, and the rest of the list the declarations for that 
variable. For example, (CLISP: FLOATING (X INTEGER)) specifies that in this 
function integer arithrnetic be used for computations involving X, and floating 
arithmetic for all other computations.®^ The user can also make local record 
declarations by inserting a record declaration, e.g. (RECORD --), 
(ARRAYRECORD --), etc., in the local declaration list. Local record 
declarations override global record declarations for the function in which they 
appear. Local declarations can also be used to override the global setting of 
certain DWIH/CLISP Parameters effective only for transformations within that 
function, by including in the local declaration an expression of the form 
(variable = value), e.g. (PATVARDEFAULT = QUOTE). 

The CLISP: expression is converted to a commont of a special form recognized by 
CLISP. Whenover a CLISP transformation that is affected by declarations is 
about to be performed in a function, this comraent will be searched for a 
relevant declaration, and if one is found, the corresponding function will be 
used. Otherwise, if none are found, the global declaration(s) currently in 
effect will be used. 
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' involving' 


For example, 


wi, h moans where the variable itself is an Operand. ... 

wxth the declaration (FLOATING (X INTEGER)) in effect, (FOO X)+(FIE X) 
would translate to FPLUS, i.e., use floating arithmetic, even though X 
nppenrs somewhere inside of the operands, whereas X+(FIE X) would translate 
AT*; If there are declarations involving both operands, e.g. X+Y. 
mih (X FLOATING) (Y INTEGER), whiehever appears first in the declaration 
list will be used. 
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Local declarations are effective in the order that they are given, so that 
later declarations can be used to override earlier ones, e.g. 
(CLISP: FAST RPLACA RPLACD) specifies that FMEMB, FLAST, RPLACA, and RPLACO be 
used. An exception to this is that declarations for specific variables take 
precedence of general, functiom-wide declarations, regardless of the order of 
appearance, as in (CLISP: (X INTEGER) FLOATING). 

Clispify also checks the declarations in effect before selecting an infix 
operator to ensure that the corresponding CLISP construct would in fact 
translate back to this form. For example, if a FLOATING declaration is in 
effect, clispify will convert (FPLUS X Y) to X+Y, but leave (IPLUS X Y) as is. 
Note that if (FPLUS X Y) is CLISPIFYed while a FLOATING declaration is under 
effect, and then the declaration is changed to INTEGER, when X+Y is translated 
back to INTERLISP, it will become (IPLUS X Y). 


23.10 The Pattern Match Compiler ^ 

CLISP contains a fairly general pattern match facility. The purpose of this 
pattern match facility is to make more convenient the specifying of certain 
tests that would otherwise be clumsy to write (and not as intelligible), by 
allowing the user to give instead a pattern which the datum is supposed to 
match. Essentially, the user writes "Does the (expression) X look like 
(the pattern) P?" For example, X:(& 'A -- ’ß) asks whether the second element 
of X is an A, and the last element a B. The implementation of the matching is 
performed by computing (once) the equivalent INTERLISP expression which will 
perform the indicated Operation, and substituting this for the pattern, and not 
by invoking each time a general purpose capability such as that found in FLIP 
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The pattern match Compiler was written by L. M. Masinter. 




or PLANNER. 


For example, the translation of X:(& ’A -- ’B) is: 
(AND (EQ (CADR X) (QUOTE A)) (EQ (CAR (LAST X)) (QUOTE B))). Thus the CLISP 
pattern match facility is really a Pattern Compiler, and the emphasis in its 
design and implementation has been more on the efficiency of object code than 
on generality and sophistication of its matching capabilities. The goal was to 
provide a facility that could and would be used even where efficiency was 
paramount, e.g. in inner loops. As a result, the CLISP pattern match facility 
does not contain (yet) some of the more esoteric features of other pattern 
match languages, such as repeated patterns, disjunctive and conjunctive 
Patterns, recursion, etc. However, the user can be confident that what 
facilities it does provide will result in INTERLISP expressions comparable to 
those he would generate by hand. ßö 

The syntax for pattern match expressions is form:pattern, where pattern is a 
list as described below. As with iterative Statements, the translation of 
patterns, i.e., the corresponding INTERLISP expressions, are stored in 
c lispa rray, a hash array, as described on page 23.30. The original expression, 

l 

form: pattern, is replaced by an expression of the form 

(MATCH form WITH pattern). CLISP also recognizes expressions input in this 
form. 

If form appears more than once in the translation, and it is not either a 
variable, or an expression that is easy to (re)compute, such as (CAR Y), 
(CDDR Z), etc., a dummy variable will be generated and bound to the value of 
form so that form is not evaluated a multiple number of times. For example, 
the translation of (FOO X):($ ’A S) is simply (MEMB (QUOTE A) (FOO X)), while 
the translation of (FOO X):('A ’B --) is: 


Wherever possible, already existing INTERLISP functions are used in the 
atl ° n ’ e - g " the translation of (J ’A $) uses MEMB, (S (’A J) $) uses 
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[PROG ($52) (RETURN 

(AND (EQ (CAR (SETQ $S2 (FOO X))) 

(QUOTE A)) 

(EQ (CADR $52) (QUOTE B]. 

In the interests of efficiency, the pattern match Compiler assumes that all 
lists end in NIL, i.e. there ar« no LISTP checks inserted in the translation to 
check tails. For exampla, the translation of X:('A & —) is 
(AND (EQ (CAR X) (QUOTE A)) (CDR X)), which will match wlth (A B) as well as 
(A . B). Similarly, the pattern match Compiler does not insert LISTP checks on 
elements, e.g. X:((’A --) --) translates simply as (EQ (CAAR X) (QUOTE A)), and 
X:(($l $1 --) --) as (CDDAR X) Note that the user can explicitly insert 
LISTP checks himself by using @, as described on page 23.40, e.g. 
X:(($l $1 --)@LISTP --) translates as (AND (LISTP (CAR X)) (CDDAR X)). 

Pattern Elemen ts 

A pattern consists of a list of pattern elements. Each pattern element is said 
to match either an element of a data structure or a Segment, (cf. the editor's 
pattern matcher, matches any arbitrary Segment of a list, while & or a 

subpattern match only one element of a list.) Those patterns which may match a 
segment of a list are called SEGMENT patterns; those that match a single 
element are called ELEMENT patterns. 


The insertion of LISTP checks for elements is controlled by the variable 
patlistp che ck. When patlistpcheck is T, LISTP checks are inserted, e.g. 
X: (('A --) --) translates as: 

(AND (LISTP X) (LISTP (CAR X)) (EQ (CAAR X) (QUOTE A))). 
patlistpcheck is initially NIL. Its value can be changed within a 
particular function by using a local declaration, as described on page 
23.35. 
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Element Patterns 


There are several types öf eleraent patterns, best given by their syntax: 
PATTERN MEANING 


$1, or & 


matches an arbitrary element of a list 


' expression 


matches only an element which is equal to the given 
expression e.g., 'A, 62 '(A B). 


= form 


matches only an element which is equal to the value of form, 
e.g., =X, -(REVERSE Y). 


same as but uses an eti check instead of equal . 

treatment depends on setting of patvardefault . 

If Patvardefault is ' or QUOTE, same as 'atom. 

If Patvardefault is = or EQUAL, same as =atom. 

If patvardefault is « or EQ, same as ==atom. 

patvardefault is or SETQ, same as atom«-&. 
patvardefault is initially *. 63 


Note: numbers and strings are always interpreted as though patvardefault were 

-, regardless of its setting. Eg, memb, and assoc are used for comparisons 
involving small integers. 


62 


pjl, memb, and a ssoc are automatically used in the translation when the 
quoted expression is atomic, otherwise equal . member, and sassoc. 


63 


can be changed wit hin a particular function by using a local 
declaration, as descrlbed on page 23.35. 
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^patterrij ... pattern n ) n > 1 matches a list which matches the given 

pattorns, e.g., (& &), (-- 'A). 

element-pattern@function-object matches an element if the elomont-pattern 

matches it, and the function-object (name of a function or a 
LAMBDA expression) applied to that element returns non-NIL, 
e.g. &0NUMBERP matches a number, ('A --)0FOO matches a list 
whose first element is A, and for which F00 applied to that 
list is non-NIL*^* 1 

* matches any arbitrary element. If the entire match 

succeeds, the element which matched the * will be returned 
as tho value of the match. 

Note: normally, the pattern match Compiler constructs an expression whose value 
is guaranteed to be non-NIL if the match succeeds and NIL if it falls. 
However, if a * appears in the pattern, the expression generated will either 
roturn NIL if the match fails, or whatever matched the * even though that may 
be NIL. For example, X:('A* --) translates as 

(AND (EQ (CAR X) (QUOTE A)) (CDR X) (CADR X)). 

-element-pattern matches an element if the element is not matched by 

element-pattern, e.g. ~'A, ~=X, ~(— 'A --). 


For 'simple' tests, the function-object is applied before a match is 
attempted with the pattern, e.g. ((-- ’A --)©LISTP --) translates as 
(AND (LISTP (CAR X)) (MEMB (QUOTE A) (CAR X))), not the other way around. 


23.40 




Sogment Patterns 


®* or "" matches any Segment of a list (including one of zero 

length). 

The difference between $ and -■ is in the type of search they generate. For 
example, X: (S 'A ’B $) translates as (EQ (CADR (MEMB (QUOTE A) X)) (QUOTE B)), 
whereas X:(-- 'A ’B $) translates as: [SOME X (FUNCTION (LAMBDA ($$2 $S1) 
(AND (EQ SS2 (QUOTE A)) (EQ (CADR SSI) (QUOTE B]. Thus, a paraphrase of 
($ ’A ’B $) would be "Is the element following the first A a B? H , whereas a 
Paraphrase of (-- ’A ’B S) would be "Is there any A immediately followed by a 
B?" Note that the pattern employing $ will result in a more efficient search 
than that employing However, ($ 'A ’B S) will not match with 

(X Y Z A M N 0 A B C), but (-- ’A ’B S) will. 

Essentially, once a pattern following a $ matches, the S never resumes 
searching, whereas -- produces a translation that will always continue 
searching until there is no possibility of success. However, if the pattern 
match Compiler can deduce from the pattern that continuing a search after a 
particular failure cannot possibly succeed, then the translations for both -- 
and S will be the same. For example, both X:($ ’A $3 $) and (-- ’A S3 --) 
translate as (CDDDR (MEMB (QUOTE A) X)), because if there are not three 
elements following the first A, there certainly will not be three elements 
following subsequent A's, so there is no reason to continue searching, even for 
Similarly, ($ ’A S ’B S) and (-- ’A — ’B --) are equivalent. 

$2, $3, etc. matches a segment of the given length. Note that $1 is not 

a segment pattern. 

! element-pattern matches any segment which the given element pattern would 

match as a list. For example, if the value of FOO is 
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(A B C) !=F00 will match tho Segment ... A B C ... etc. 
Note that !* is permissible and means Value-of-match«-$, e.g. 
X:($ 'A !*) translates to (CDR (MEMB (QUOTE A) X)). 

Note: since ! appearing in front of the last pattern specifies a match with 
some tail of the given expression, it also makes sense in this case for a ! to 
appear in front of a pattern that can only match with an atom, e.g., ($2 ! *A) 
means match if cddr of the expression is the atom A. Similarly, X:($ ! *A) 
translates to (EQ (COR (LAST X)) (QUOTE A)). 

!atom treatment depends on setting of patvardefault . If 

patvardcfault is 1 or QUOTE, same as !'atom (see above 
discussion). If patvardefault is = or EQUAL, same as 
! =atom. If patvardefault is == or EQ, same as !==atom. If 
patvardefault is *• or SETQ, same as atom«-$. 

The atom '. 1 is treated exactlu like !, 65 In addition, if a 
pattern ends in an atom, the is first changed to !, 
e.g., ($1 . A) and ($1 ! A) are equivalent, even though the 
atom does not explicitly appear in the pattern. 

Segment-pattorn@function-object matches a Segment if the Segment-pattern 

matches it, and the function Object applied to the 
corresponding Segment (as a list) returns non-NIL, e.g. 


65 


With one exccption, namely 
special Interpretation that 
23.43). For example, 

(AND (EQ (CAR X) (QUOTE A)) 
but X:('A ! FOO*-'B) translates 


(EQ 
as: 

(AND (EQ (CAR X) (QUOTE A)) 
(NULL (CDDR X)) 

(EQ ( CADR X) (QUOTE B)) 
(SETQ FOO (CDR X))). 


preceding an assignment does not have the 
has proceding an assignment (see page 

translates as: 


X: ( 
(CDR 


A 

X) 


FOO-'B) • 
(QUOTE B)) 


(SETQ FOO (CDR X))), 
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(50CDDR 'D $) matches (A B C 0 E) but not (A B D E), since 
CDDR of (A B) is NIL. 

Note: an @ pattern applied to a segment will require Computing the 
corrosponding structure (with ldiff ) each time the predicate is applied (except 
when the segment in question is a tail of the list being matched). 


Assignments 

Any pattern elemcnt may be preceded by a variable and a meaning if the 

match succeeds (i.e., everything matches), the variable given is to be set to 
what matches that pattern element. For example, if X = (A 8 C D E), 
X:(S2 Y»-$3) will set Y to (C 0 E). Assignments are not performed until the 
entire match has succeeded. Thus, assignments cannot be used to specify a 
search for an element found earlier in the match, e.g. X:(Y*-$1 =Y --) 66 will 
not match with (A A B C ...) This type of match is achieved by using 
place-markers, described below. 

If the variable is preceded by a !, the assignment is to the tail of the list 
as of that point in the pattern, i.e. that portion of the list matched by the 
remainder of the pattern. For example, if X is (A B C D E), X:(S !Y*-'C 'D $) 
sets Y to (CD E), i.e. cddr of X. In other words, when ! precedes an 
assignment, it acts as a modifier to the and has no effect whatsoever on the 
pattern itself, e.g. X:('A ’B) and X:('A !FOO»-'B) match identically, and in 
the latter case, F00 will be set to CDR of X. 

The translation of this pattern is: 

(COND ((AND (CDR X) (EQUAL (CADR X) Y)) 

(SETQ Y (CAR X)) 

T)). 

The AND is because if Y is NIL, the pattern should match with (A NIL), but 

not with just (A). The T is because (CAR X) might be NIL. 


67 


unless, of course, the value of Y was A before the match started. 




Note: **-pattern-element and ! **-pattern-element are acceptable, e.g. 

X:(S 'A *«-( 'B --) --) translates as: 

[PROG ($S2) (RETURN 

(AND (EO (CAADR (SETQ SS2 (MEMB (QUOTE A) X))) 

(QUOTE B)) 

(CADR SS2] 

Place-markers 

Variables of the form #n, n a number, are called place-markers, and are 
intcrpreted specially by the pattern match Compiler. Place-markers are used in 
a pattern to mark or refer to a particular pattern element. Functionally, they 
are used like ordinary variables, i.e. they can be assigned values, or used 
freely in forms appearing in the pattern, e.g. X:(#1*-S1 =(ADD1 #1)) will match 
the list (23). However, they are not really variables in the sense that they 
are not bound, nor can a function called from within the pattern expect to be 
able to obtain their values. For convenience, regardless of the setting of 
patvardefault , the first appearance of a defaulted place-marker is interpreted 
as though patvardefault were Thus the above pattern could have been written 
as X:(#l =(ADD1 #1)). Subsequent appearances of a place-marker are interpreted 
as though patvardefault were =. For example, X:(#l #1 --) is equivalent to 
X:(#l*-Sl =# 1 --), and translates as (AND (CDR X) (EQUAL (CAR X) (CADR X)). 68 

Replacements 

Any pattern element may be followed by a '«-• and a form, meaning if the match 
succoods, the part of the data that matched is to be replaced (e.g., with 


Just (EQUAL (CAR X) (CADR X)) would incorrectly match with (NIL). 
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RPLACA or RPLACD) 60 with the value of <form>. For example, if X =(A B C D E), 
X:($ ’C $ 1«-Y $1) will replace the fourth element of X with the value of Y. As 
with assignments, replacements are not performed until after it is determined 
that the entire match will be successful. 

Replacements involving segments splice the corresponding structure into the 
list being matched, e.g. if X is (A B C D E F) and F00 is (1 2 3), after the 
pattern ( 'A S«-FOO '0 $) is matched with X, X will be <A 1 2 3 D E F), and FOO 
will bo eg to COR of x, i.e. (1 2 3 D E F). 

* * * 


Note that ($ FOO*-FIE J) is ambiguous, since it is not clear whether FOO or FIE 
is the pattern element, i.e. whether «- specifies assignment or replacement. 
For example, if patvardefault is =, this pattern can be interpreted as 
($ FOO«-=FIE S), meaning search for the value of FIE, and if found set FOO to 
it, or ($ =FOO-FIE $) meaning search for the value of FOO, and if found, störe 
the value of FIE into the corresponding Position. In such cases, the user 
should disambiguate by not using the patvardefault Option, i.e. by specifying ' 
or =. 
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The user 
f rpla cd. 
rplacd . 


can indicate he wants /rplaca and /rpl acd used, or frplaca and 
by means of declarations. The initial default is for rplaca and 
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Reconstruction 


The user can specify a value for a pattern match Operation other than what is 

returned by the match by writing after the pattern => followod by another form, 

e.g. X:(FOO*-$ 'A --) => (REVERSE FOO),^ which translates as: 

[PR06 (S$2) (RETURN 

(COND {(SETQ S$2 (MEMB (QUOTE A) X)) 

(SETQ FOO (LDIFF X $2)) 

(REVERSE FOO]. 

Place-markers in the pattern can be referred to from within form , e.g. the 
above could also have been written as X:(!#l 'A --)=>(REVER5E #1). If -> is 
used in place of =>. the expression being matched is also phgsical ly changed to 
the value of form . For example, X:(#l 'A !#2) -> (CONS #1 #2) would remove the 
second element from X, if it were equal to A. 

In general, formt:pattern->form2 is translatcd so as to compute form2 if the 
match is successful, and then smash its value into the first node of forml . 
However, whenever possible, the translation does not actually require form2 to 
be computed in its entirety, but instead the pattern match Compiler uses form2 
as an indication of what should be done to forml . For example, 
X:(#l 'A !#2) -> (CONS #1 #2) translates as: 

(AND (EQ (CADR X) (QUOTE A)) (RPLACD X (CDDR X))). 


The original CLISP is replaced by an expression of the form 
(MATCH forml WITH pattern => form2). CLISP also recognlzes expressions 
Input in this form. 


23.46 




Examples 


X:(-- 'A --) -- matches any arbitrary segment. 'A matches only an 

A, and the 2 nd -- again matches an arbitrary segment; 
thus this translates to (MEMB (QUOTE A) X). 


X:(-~ ’A) Again, -- matches an arbitrary segment; however, since 

there is no -- after the *A, A must be the last element 
X. Thus this translates to: 

(EQ (CAR (LAST X)) (QUOTE A)). 


X:('A 'B -- 'C $3 *•) CAR of X must be A, and CADR must be B, and there must 

be at least three elements after the first C, so the 

translation is: 

(AND (EQ (CAR X) (QUOTE A)) 

(EQ (CADR X) (QUOTE B)) 

(CDDDR (MEMB (QUOTE C) (CDDR X)))) 


X:(('A ’B) 'C Y»-Sl $) Since ('A 'B) does not end in $ or (CDDAR X) must 

be NIL. 

(COND 

((AND (EQ (CAAR X) (QUOTE A)) 

(EQ (CADAR X) (QUOTE B)) 

(NULL (CDDAR X)) 

(EQ (CADR X) (QUOTE C)) 

(CDDR X)) 

(SETQ Y (CADDR X)) 

T)) 


X:(#l 'A S *B 'C #1 $) #i is implicitly assigned to the first element in the 

list. The S searches for the first B following A. This 

B must be followed by a C, and the C by an expression 

equal to the first element. 

[PROG ($$2) (RETURN 

(AND (EQ (CADR X) (QUOTE A)) 

(EQ [CADR (SETQ $$2 (MEMB (QUOTE B) (CDDR X] 
(QUOTE C)) 

(EQUAL (CADDR SS2) (CAR X] 
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X:(#l ’A -- 'B ’C #1 $) Similar to the pattern above, except that -- specifies 

a search for any B followed by a C followed by the 

first eiement, so the translation is: 

[AND (EQ (CADR X) (QUOTE A)) 

(SOME (COOR X) (FUNCTION (LAMBDA ($$2 $$1) 

(AND (EQ SS2 (QUOTE B)) 

(EQ (CADR SSI) (QUOTE C)) 

(EQUAL (CADDR SSI) (CAR X] 


This concludes the description of the pattern match Compiler. 


23.11 The Record Package ^ 

The advantages of "data-less" or data-structure-independent programming have 
l°ng been known: more readable code, fewer bugs, the ability to change the data 
structure without having to make major modifications to the program, etc. The 
record package in CUSP both oncourages and facilitates this good programming 
practice by providing a uniform syntax for accessing and storing data into many 
different typos of data structures, e.g. those employing arrays, list 
structures, atom property lists, hash links, etc., or any combination thereof, 
as well as removing from the user the task of writing the various access and 
storage routines themselves. The user declares (once) the data structure(s) 
used by his programs, and thereafter indicates the manipulations of the data in 
a data-structure-independent mariner. The record package automatically computes 
from the declaration(s) the corresponding INTERLISP expressions necessary to 
accomplish the indicated access/storage operations. The user can change his 
data structure simply by changing the corresponding declaration(s), and his 
program automatically (re)adjusts itself to the new conventions. 
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The record package was written by L. N. Masinter. 




The user informs the rccord package about the format of bis data structure by 
making a record declaration. A record declaration defines a record , i.e. a 
data structure. (Note that the record itself is an abstraction that exists 
only in the user's head.) The record declaration is essentially a template 
which describes the record, associating names with its various parts or fields. 
For example, the record declaration (RECORD MSG (ID (FROM TO) . TEXT)) 
describes a data structure called MSG, which contains four fields: 10, FROM, 
TO, and TEXT. The user can then reference these fields by name, either to 
retrieve their contents, or to störe new data into them, by using the : 
operator followed by the field name. For example, for the above record 
declaration, X:FR0M would be equivalent (and translate) to (CAADR X), and 
Y:TO»-Z to (RPLACA (CDADR Y) 1)7^ The fields of a record can be further broken 
down into subfields by additional declarations within the record, e.g. 

(RECORD MSG (ID (FROM TO) . TEXT) (RECORD TEXT (HEADER TXT))) would permit the 
user to refer to TEXT, or to its subfields HEADER and TXT. 

Note that what the record declaration is really doing is specifying the 
data-paths of the structure, and thereby specifying how the corresponding 
access/storage operations are to be carried out. For example, 
(RECORD MSG (ID (FROM TO) . TEXT) (RECORD TEXT (HEADER TXT))) says the HEADER 
of a MSG is to be found as the first element of its TEXT, which is the second 
tail of the MSG itself. Hence, X:HEADER»*str ing is achieved by performing 
(RPLACA (CDDR X) String). 

Note also that when the user writes X:HEADER, he is implicitly saying the X is 
an instance of the record MSG, or at least is to be treated as such for this 
particular Operation. In other words, the Interpretation of X:FORM neuer 
depends on the ualue of X. The record package (currently) does not provide any 


or /RPLACA or FRPLACA, depending on the CLISP declaration in effect. 
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facility which usos run-time checks to dotormine data paths, nor is there any 
error checking other than that provided by INTERLISP itself. For example, if X 
happened to be an array, XrHEADER would still compute (CAAOR X). 73 

RECORD (used to specify elements and tails of a list structure) is just one of 
several record-types currently implemented. For example, the user can specify 
'optional' fields, i.e. property list format, by using the record type 
PROPRECORD, or fields to be associated with parts of the data structure via 
hash links, by using the record-type HASHRECORD, or even specify the access 
definitions in the record declaration himself, by using the record-type 
ACCESSFN. These are described Ln detail below. 


The record package also provides a facility for creating new data structures 
using a record declaration as a guide or template. Initial values for the 
various fields can be specified in the CREATE expression, or dofaulted to 
values specified in the record declaration itself. Alternatively, CREATE can 
be instructed to use an existing datum as a model, i.e. to obtain the field 
values for the new datum from the corresponding fields of the existing datum, 

or even to actually use (cannibalize) the structure of the existing datum 
itself. 

As with all DWIM/CLISP facilities, the record package contains many 
do-what-I-mean features, spelling correction on field names, record types, etc. 
In addition, the record package includes a RECORDS prettydef macro for dumping 
record declarations, as well as the appropriate modifications to the file 
package (Section 14), so that flies? and cleanup will inform the user about 
records that need to be dumped. 


73 


However, itis P° ssible to make the Interpretation of X:HEADER differ from 
decl^rlftions^ 93 ^* 65 ^ ° f - thG ValU ° S ° f X a " d Y) ’ by USing local 


record declarations, as described on page 23.35. Note 
distinction dcpends on a translation -time check, not run-time. 


iing 

that 


this 
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Record Declarations 


A record declaration is an expression of the form 

(record-type record-name fields . {defaults and/or subfields}) 

This expression is evaluated to effect the corresponding declaration. 7 ^ 

1. record-type spccifies the "type" of data being described by the record 
declaration, and thereby implicitly specifies the data paths, i.e. how the 
corresponding access/storage operations are performed. record-type 
currontly is either RECORD, TYPERECORD, ARRAYRECORD, ATOMRECORD, PROPRECORO, 
HASHRECORD, or ACCESSEN. 76 RECORD and TYPERECORD are used to describe list 
structures, ARRAYRECORD to describe arrays, ATOMRECORD to describe (the 
property list of) atoms, and PROPRECORD to describe lists that use property 
list formst. HASHRECORD can be used with any type of data: since it simply 
specifies the data path to be a hash-link. ACCESSEN is also type-less; the 
user specifies the data-path(s) in the record declaration itself, as 
described below. 

2. record-name is a literal atom used to identify the record declaration for 
dumping to files via the RECORDS prettydef macro, and for creating instances 
of the record via CREATE. For most top-level declarations, record-name is 
optional, e.g. (RECORD (ID (FROM TO) . TEXT)) is perfectly acceptable 7 6 


74 

Local record declarations are performed by including an expression of this 
form in the CLISP declaration for that function (page 23.35), rather than 
evaluating the expression itself. 

Yß 

When user-defined data types are introduced to INTERLISP, a corresponding 
record-type will be added to the record package. 

76 

If record-name is omitted, it simply means that the user cannot specify the 
record by name, e.g. when calling CREATE, or when using the RECORDS 
prettydef command. 
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For TYPERECORD, record-name is obligatory and is used as an indicator in CAR 
of the datum to signify what "type" of record it is. CREATE will insert an 
extra field containing record-name at the beginning of the structure, and 
the translation of the access and storage functions will take this extra 
field into account.^ 


For subfield declarations, record-name is also obligatory, and specifies the 
parent field that is being elaborated, as described below. 

£ ields describes the structure of the record. Its exact Interpretation 
varies with the record-type : 

For RECORD, fields is a list whose non-NIL literal atoms are taken as 
field-names to be associated with the corresponding elements and 
tails of a list structure. NIL can be used as a place marker to fill 
an unnamed field, e.g. (A NIL B) describes a three element list, with 
B corresponding to the third element. 

For TYPERECORD, fields has the same meaning as for RECORD. However, 
sinco CAR of the datum contains an indicator signifying its "type," 
the translation of the access/storage functions differ from those of 
RECORD. For example, for (TYPERECORD MSG (ID (FROM TO) . TEXT)), 
X:FROM translates as (CAADDR X), not (CAADR X). 

For ATOMRECORD, fields is a list of property names, e.g. 
(ATOMRECORD (EXPR CODE MACRO BLKLIBRARYDEF)). Accessing will be 
performed with getp , storing with put . 


Note: this type-field is not used by the record package. It is provided 
for the user s own applications. ^ 
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For PROPRECORD, fields is also a list of property names. Accessing 
is performed with get, storing with putl . 7a For example, 

(RECORD ENTRY (INPUT VALUE ID . PROPS) (PROPRECORD PROPS (HISTORY 
LISPXPRINT SIDE GROUP ERROR))) could be used to describe an entry on 
the history list (see Section 22 ). 79 

For HASHRECORD (or HASHLINK), fields is usually just field-name , i.e. 
an atom, and is the name by which the corresponding hash-value is 
referred to. For example, for (RECORD (A B . C) (HASHRECORD B FOO)), 
X:FOO translates as (GETHASH (CADR X)). If field-name is a list, it 
is interpreted as (field-name arrayname arraysize). In this case, 
arrayname indicates the hash-array to be used. For example, 
(HASHRECORD (CLISP CLI5PARRAY)) would permit the user to obtaln the 
CLISP translatlon of X by simply writing X:CLISP. arraysize is used 
for initializing the hash array: if arrayname has not been 
initialized at the time of the declaration, it will be set to 
(HARRAY (OR arraysize 100)). 

For ARRAYRECORD, fields is a list of field-names that are associated 
with the corresponding elements of the array. NIL can be used as a 
place marker for an unnamed field (element). Positive integers can be 
used as abbreviation for the corresponding number of NILs. For 
example, (ARRAYRECORD (ORG DEST NIL ID 3 TEXT)) describes an eight 


A new runction (part of the record package), similar to put , which takes a 
list ns its first argument, searches the list looking for an occurrence of 
the given property name (its second argument). If found, it replaces the 
next element with the new property value (its third argument), otherwise 
adds the property name and property value to the list. 


Note that (ATOMRECORD (FOO FIE))) is equivalent to (RECORD (VALUE . PROPS) 
(PROPRECORD PROPS (FOO FIE))), the difference being in the translations. 
In the first case, X:FIE translates as (GETP X (QUOTE FIE)),, in the second 
case, as (GET (CDR X) (QUOTE FIE)). Note also that in the first case, if X 
is not a literal atom, INTERLISP (i.e. getp ) will generate an error. 
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clcmcnt array, with ORG corresponding to the first element, ID to 
the fourth, and TEXT to the eighth. 

For ACCESSFN (or ACCESSFNS), fields is a list of the form 
(field-name accessdefinition setdefinition), or a list of elements of 
this form, accessdefinition is a function of one argument, the datum, 
and will be used for accessing. setdefinition is a function of two 
arguments, the datum and the new value, and is used for storing.^ 
For example, (HASHRECORD F00) and (ACCESSFN (FOO GETHASH PUTHASH)) 
are equivalent: in both cases, X:FOO translates as (GETHASH FOO). 
Similarly, (ACCESSFN (DEF GETD PUTD)) would permit defining functions 
by writing fn:DEF-definition. 01 

4. {defaults and/or subfields) is optional. It may contain expressions of the 
form: 


(1) field-namo - form - specifies the default value for field-name . 
Used by CREATE. 

(2) DEFAULT «- form - specifies default value for every field not 
given a specific default via (1). 

(3) a subfield declaration - i.e. a record declaration of any of the 
abovo types. For subfield declarations, record-name is obligatory. 
Instead of identifyingi the declaration as with the case of top level 
declarations, record-name identifies the parent field or record that 
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Currently, an error is generated if CREATE 
declaration containing an ACCESSFNS record-type 


is called with 


a record 1 
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[ACCESSFN (DEF GETD (LAMBDA (FN DEF) 
preferable to using putd . 


(DEFINE (LIST (LIST FN DEF] would be 
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is being described by the subfield declaration. It must be either the 
record-name of the immediately superior declaration, or one of its 
field-names (or eise an error is generated). 

Subfields can be nested to an arbitrary depth. 

Note that in some casos, it makes sense for a given field to have 
more than one subfield declaration. For example, in 
(RECORD (A . B) (PROPRECORD B (F00 FIE FUM)) (HASHRECORD B C)), B is 
elaborated by both a PROPRECORD and HASHRECORD. Similarly, 
(RECORD (A B) (RECORD A (C D)) (RECORD A (F00 FIE))) is also 
acceptable, and essentially "overlays" (F00 FIE) and (C D), i.e. 
X:FOO and X:C would be equivalent. In such cases, the first subfield 
declaration is the one used by CREATE, e.g. 

(RECORD X (A B) (RECORD A (C D)) (RECORD A (FOO FIE FUM)) ) will 
cause (CREATE X) to construct ((NIL NIL) NIL), not 
((NIL NIL NIL) NIL), as would be the case if the subfield declaration 
(RECORD A (C D)) were removed. 


CREATE 


Record operations can be applied to arbitrary structures, i.e. structures 
creatod directly by user programs can be manipulated in a data-independent 
manner using record declarations. However, to be completely data-independent, 
new data should be created using the same declarations that define its data 
paths. This can be done by means of an expression of the form 
(CREATE record-name . (asslgnments )), 82 (assignments) is optional and may 


CREATE is not defined as a function. Instead, DWIM calls the appropriate 
function in the record package giving it the entire CREATE expression as an 
argument. The translation of the CREATE expression, i.e. the INTERLISP 
form which is evaluated to construct the datum, is then stored elsewhere, 
as with iterative Statements and pattern matches. 
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contain expressions of the following form: 


(1) field-name «- form specifies initial value for field-name. 


(2) USING form specifies that for all fields not given a 

value by (1), the value of the corresponding 
field in form is to be used. 

(3) COPYING form like USING except the corresponding values 

are copied ( copy ). 


(4) REUSING form like USING, except that wherever possible, 

the corresponding structure in form is used 
(similar to Operation of subpair and sublis ). 


For example, following (RECORD F00 (A B C)) f 

(CREATE F00 A*-T USING X) translates as (LIST T (CADR X) (CADDR X)), 

(CREATE FOO A-T COPYING X)) as (LIST T (COPY (CADR X)) (COPY (CADDR X))), and 
(CREATE FOO A-T REUSING X) as (CONS T (CDR X)). 

A CREATE expression translates into an appropriate INTERLISP form using cons , 

sota , etc., that creates the new datum with the 
to the appropriate values. If values are neither 
implicitly specified via USING or COPYING, the 


list , put , putl , puthash , 
various fields initialized 
explicitly specified, nor 


23.56 



DEFAULT valuc in the declaration is used, if any,^ otherwise NIL.^ 


Implementation 

Record operations are implemented by replacing expressions of the form X:FOO by 
(FETCH FOO OF X), and X:FOO-Y by (REPLACE F00 OF X WITH Y), S5 and then storing 
the translation elsewhere, usually in a hash array, as described on page 23.30. 
Translations of CREATE expressions are also stored elswhere. 

The translation of each record Operation is computed using Information 
retrioved from the property list of the field name, under the property 
CLISPRECORDFIELD. Thus, (global) field names must be unique, i.e. cannot be 
the same as the name of any other field in any other record. Records can also 
be declared local to a particular function by using a CLISP declaration, as 
described on page 23.35. Local record declarations override global ones, and a 
local record can have a field name the same as that of a local record of 
another function, or the same as a field name of a global record. 


For both global and local records, the translation is computed using all CLISP 
declarations in effect as described on page 23.33, e.g. if the declaration 
UNDOABLE in in effect, /RPLACA, /RPLACD, /PUTHASH, etc. will be used. 


For RECORD and TYPERECORD declarations with non-NIL defaults, all elements 
and named tails will be initialized; unnamed tails will not be initialized. 
For example, (RECORD FOO (A NIL B) DEFAULT-T) will cause (CREATE FOO) to 
construct (T T T) not (T T T . T). Of course, 
(RECORD FOO (A B . C) DEFAULW) will cause (CREATE FOO) to construct 
(TT . T) as expected. 


S4 

For PROPRFCORD, initialization is only performed where neccssary. For 
example, (RECORD FOO (A B) (PROPRECORD (C D E))) would cause (CREATE FOO) 
to construct (NIL NIL), not (NIL (C NIL D NIL E NIL)). 
(RECORD FOO (A B) (PROPRECORD (C D E) DEFAULT-T)) however, will construct 
(NIL (C T D T E T)). 
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CLISP also recognizes expressions input in this form. 




When the user redeclares a global record, tho translations of all oxpressions 
involving that record aro automatically deleted,^ and thus will bo recomputed 
using tho new Information. If the user changes a local record declaration, or 
changes some other CLISP declaration, e.g. STANDARD to FAST, and wishes the new 
Information to affect record expressions already translated, he must make sure 
the corresponding translations are removed, usually either by CLISPIFYING or 
changing the expression by editing it. 


23.12 CLISPIFY 


Clis pify converts INTERL1SP expressions to CLISP. Note that the expression 
given to clispify need not have originally been input as CLISP, i.e., clispify 
can be used on functions that were written before CLISP was even implemented. 
Clispif y is cognizant of declaration rules as well as all of the precedence 
rules. 57 For example, clispify will convert (IPLUS A (ITIMES B C)) into A+B*C, 
but (ITIMES A (IPLUS B C)) into A*(B+C).®^ Clispify converts calls to the six 
basic mapping functions, MAP, MAPC, MAPCAR, MAPLIST, MAPCONC, and MAPCON, into 
equivalent iterative Statements. It also converts certain easily recognizable 
internal PROG loops to the corresponding i.s. For example, 


from cl isparray . If the user is not using this method for storing 
translations, i.e. is instand using the CLISP5£_ method (page 23.31), those 
expressions already translated will remain as they are. (There is no 
practical way to locate thern.) 


S7 

£ljsjgify is table driven exactly the same as CLISP, so that if the user 
changes any precedence, or defines new operators, clispify "automaticallv" 
knows about it. 


PAL?P±fy also knows how to handle expressions consisting of a mixture of 
INTEKLISP and CLISP, e.g. (IPLUS A B*C) is converted to A+B*C, but 
(ITIMES A B+C) to (A*(B+C)). clispify handles such cases by first 
dwimlfy ing the expression. 
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... label (COND (pred ... forms ... (GO label))) ... 

becomes 

... label (WHILE pred DO ... forms ...) ... 89 

CI ispif y is not destructive to the original INTERLISP expression, i.e. clispify 
produces a new expression without changing the original. 90 Clispify will not 
convert expressions appearing as arguments to NLAMBDA functions. 9 * 

The value of various global Parameters affect the Operation of clispify : 

cl:flg 

The user can disable the : transformation by setting the variable cl:flg to 
NIL. This will cause clispify not to transform expressions such as (CADR X) to 
X:2. Note that clispify doos not convert to : notation when the argument is 
not atomic or a simple list (a function name and one atomic argument), 
regardless of the setting of this flag. The initial value of cl:flg is T. 

clrcmparsflg 

Clispify will remove parentheses in certain cases from simple forms, where 
'simple' means a function name and one or two atomic arguments. For example, 
(COND ((ATOM X) --)) will CLISPIFY to (IF ATOM X THEN —). However, if 
clremparsflg is set to NIL, clispify will produce (IF (ATOM X) THEN --). Note 


cli spify can convert all iterative Statements input in CLISP back to CLISP, 
regardless of how complicated the translation was, because the original 
CLISP is saved. 


90 

The new expression may however contain some 'pioces' of the original, since 
clispify attempts to minimize the number of CONSes by not copying structure 
whenever possible. 


91 

Except for those functions for which clispify contains built in Information 
about how they process their arguments, e.g. prog . selectq , function . 
prog n, ersetq , nlsetq , resetvar , resetform , etc. 


23.59 





that regardless of the setting of this flag, the expression can be input in 
either form. The initial value of clremparsflg is T. 

clispifypackflg 

£ii*pjJ]yj)a ckf] g affects the treatment of infix operators with atomic operands. 
^ £iV s P^yP ac ^flg is T» clispify will pack these into single atoms, e.g., 
(IPLUS A (ITIMES B C)) becomes A+B*C. If clispifypackflg is NIL, no packing is 
done, e.g., the above becomes A_+_B_*_C. The initial value of clispifypackflg 
is T. 

funnyatomlst 

Supposo the user has variables named A, B, and A*B. If clispify were to 
convert (ITIMES A B) to A*B, A*B would not translate back correctly to 
(ITIMES A B), since it would be the name of a variable, and therefore would not 
cause an error, The user can prevent this from happening by adding A*B to the 
list funnyatom lst. Then, (ITIMES A B) would clispify to A_*_B. 

Note that A*B's appearance on funnyatomlst would not enable DWIM/CLISP to 
decode A*B+C as (IPLUS A*B.C); funnyatomlst is used only by clispify . Thus, if 
an identifier contains a CLISP character, it should always be separated (with 
spaces) from other operators. For example, if X* is a variable, the user 
should write (SETQ X* form) in CLISP as X* «-form, not X**-form. However, in 
general, it is best to auoid use of idcntifiers containina CLISP character 
o perator s as mach as possible . 

clispifyprctt y flg 

If T, causes p rettyprint to clispify all expressions before printing thera (but 
not to redefino any functions). clispifyprettyflg is temporarily reset to T, 
using resetvar, whcn makefile is called with the Option CLISPIFY, or when the 
file in question has property FILETYPE with value CLISP on its property list. 
clispifyprettyf lg is initially NIL. 
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In addition to the above Controls, disabling a CLISP operator (see cldisable , 
page 23.74) will also disable the corresponding CLISPIFY transformation. 
Thus, if *- is "turned off", A»-B will not transform to (SETQ A B), nor vice 
vorsa. 


23.13 Dwimify 

Pwimify is effectively a preprocessor for CLISP. Dwimify operates by scanning 
an expression as though it were being interproted, and for each form that would 
genorate an error, calling DWIM to 'fix' it. 92 Thus the user will see the same 
messages, and be asked for approval in the same situations, as he would if the 
expression were actually run. If DWIM is unable to make a correction, no 
message is printed, the form is left as it was, and the analysis proceeds. 

Dwimify knows exactly how the Interpreter works. It knows the syntax of progs , 
solcctq s, lambda expressions, setqs , et al. It knows that the argument of 
nlambdas are not evaluated. It also knows how variables are bound. In the 
course of its analysis of a particular expression, dwimify builds a list of the 
bound variables from the LAMBDA expressions and PROGs that it encounters. It 
uses this list for spelling corrections. Dwimify also knows not to try to 
'corroct' variables that are on this list since they would be bound if the 
expression were actually being run. However, note that dwimify cannot, a 
priori, know about variables that are used freely but would be bound in a 
higher function if the expression were evaluated in its normal context. 
Therefore, d wimify will try to 'correct' these variables. Similarly, dwimify 


Thus dwim ify performs all DWIM transformations, not just CLISP 
transformations, i.e., it does spelling correction, fixes 8-9 errors, 
handles F/L, etc. 
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will attempt to correct forms for which car ls untlefined, even when the form is 
not in error from the user's standpoint, but the corresponding function has 
simply not yet been defined. 

In most cases, an attempt to transform a form that is already as the user 
intended will have no effect (because there will be nothing to which that form 
could reasonably be transformed). However, in order to avoid needless calls to 
DWIM or to avoid possible confusion, the user can inform dwimify not to attempt 
corrections or transformations on certain functions or variables by adding 
them to the list nofixfnslst or nofixvarslst respectively. 9 ^ 

Dwimify and dwimifyfns (used to dwimify several functions) maintain two 
internal lists of those functions and variables for which corrections were 

unsuccessfully attempted, These lists are initialized to nofixfnslst and 

S°Iixvji rs . l5t i . Once an attempt is made to fix a particular function or 
variable, and the attempt fails, the function or variable is added to the 

corresponding list, so that on subsequent occurrences (within this call to 
or £l^i. T TLi£iüXHs)« no attempt at correction is made. For example, if FOO 
calls FIE several times, and FIE is undefined at the time FOO is dwimified, 
dwimify will not bother with FIE after the first occurrence. In other words, 

once dwimify "notices" a function or variable, it no longer attempts to correct 

94 ' ’ 

it.‘ Noroover, once dwimify "notices" such functions or variables, it 

subsequently treats them the same as though they were actually defined or set. 

Note that these internal lists are local to each call to dwimify and 

dwimi fyfns, so that if a function containing F000, a misspelled call to FOO, is 


Note that the user could achieve the samo effect by simply sotting the 
corresponding variables, and giving the functions dummy definitions. 


94 


Dwim ify and dwimifyfns also 
expression being processed. 


"notice" free variables that are set in the 
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dwimifiod before F00 is defined or mentioned, if the function is dwimified 
again after FOO has been defined, the correction will be made. 

Note that the user can undo selected transformations performed by dwimify , as 
described in section 22. 

Compiling CLISP 

Since the Compiler does not know about CLISP, in order to compile functions 
containing CLISP constructs, the definitions must first be dwimified . The user 
can automate this process in several ways: 

1) If the variable dwitnlfycompflg is T, the Compiler will always dwimify 
expressions before compiling them. dwimifycompflg is initially NIL. 

2) If a file has the property FILETYPE with value CLISP on its property list, 
tcompl , bcompl . recompile , and brecompile will operate as though dwimifycompflg 
is T and dwimify all expressions before compiling. 90 

3) If the function definition has a CLISP declaration (see page 23.33), 
including a null declaration, i.e., just (CLISP:), the definition will be 
automatically dwimified before compiling. 

Note: tcompl , bcompl , recompile , and brecompile all scan the entire file before 
doing any compiling, and take note of the names of all functions that are 
defined in the file as well as the names of all variables that are set by 
adding them to nofixfnslst and nofixvarslst . respectively. Thus, if a function 


If the value of property FILETYPE is CLISP, makefile would have 
automatically clispified all functions before prettyprinting, as described 
in Section 14. 
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is not currently defined, but is defined in the file being compiled, when 
dwimify is called before compiling, it will not attompt to correct the function 
when it appears as car of a form. 

Note: j LQffPilouscrfn (Soction 18) is defined to call dwimify on iterative 
Statements, as well as IF-THEN Statements. Thus, if the only CLISP constructs 
in a function appear inside of iterative Statements or IF Statements, the 
function does not have to be dwimified before compiling. 


23.14 Operation 

CLISP is a part of the basic INTERLISP System. Without any special 
preparations, the user can include CLISP constructs in programs, or type them 
in directly for evaluation (in eval or apply format), and when the "error” 
occurrs, and DWIM is called, it will destructively 9ß transform the CLISP to the 
equivalent INTERLISP expression and evaluate the INTERLISP expression. User 
approval is not requested, and rio message is printed.®^ 

However, if a CLISP construct contains an error, an appropriate diagnostic is 
generatod, and the form is left unchanged. For example, if the user writes 
(LIST X+Y*), the error diagnostic MISSING OPERAND AT X+Y* IN (LIST X+Y*) would 
be generated. Similarly, if the user writes (LAST+EL X), CLISP knows that 
((IPLUS LAST EL) X) is not a valid INTERLISP expression, so the error 
diagnostic MISSING OPERATOR IN (LAST+EL X) is generated. (For example, the 
user might have meant to say (LAST+EL*X).) Note that if LAST+EL were the name 
of a defined function, CLISP would never see this form. 


CLISP transformations, like all DWIM corrections, are undoable. 

This entire discussion also applies to CLISP transformation initiated by 
calls to DWIM from dwimify . 
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Since the bad CLI5P transformation might not be CLISP at all, for example, it 
minht be a misspelling of a user function or variable, DWIM holds all CLISP 
error messages until after trying other corrections. If one of these succeeds, 
the CLISP message is discarded. Otherwise, if all fail, the message is printed 
(but no change is made). 95 For example, suppose the user types (R/PLACA X Y). 
CLISP generates a diagnostic, since ((IQUOTIENT R PLACA) X Y) is obviously not 

right. However, since R/PLACA spelling cprrects to /RPLACA, this diagnostic is 
never printed. 

If a CLISP infix construct is well formed from a syntactic standpoint, but one 
or both of its operands are atomic and not bound," it is possible that either 
the Operand is misspelled, e.g., the user wrote X+YY for X+Y, or that a CLISP 
transformation Operation was not intended at all, but that the entire 
expression is a misspelling. For example, if the user has a variable named 
LAST-EL, and writes (LIST LAST-ELL). Therefore, CLISP computes. but does not 
actually perform, the indicatod infix transformation. DWIM then continues, and 
if it is able to make another correction, does so, and ignores the CLISP 
intcrprctation. For example, with LAST-ELL, the transformation 
LAST-ELL -> LAST-EL would be found. 

If no other transformation is found, and DWIM is about to interpret a construct 
as CLISP for which one of the operands is not bound, DWIM will ask the user 
whether CLISP was intended, in this case by printing 


Except that CLISP error messages are not printed on type-in. 
typing X+*Y will just produce a U.ß.A. X+*Y message. 


For example. 


99 


For the purpose of d wimifying ,, 'not bound’ means no top level value, not 

oCJife f b ° U J ld v i arlables built up by dwimify during its analysis of the 
expression, and not on nofixvarslst . i.e., not previously seen. 
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LAST-ELL TREAT AS CLISP l 100 

Tho Samo sort of procedure is followod with 8 and 9 errors. For example, 
suppose tho user writes F008*X whero F008 is not bound. The CLISP 
transformation is noted, and DWIM proceeds. It noxt asks the user to approve 
F008*X -> F00 ( *X. (For example, this would make sense if the user has (or 
plans to define) a function named *X.) If ho refuses, the user is asked 
whethor F008*X is to be treated as CLISP. Similarly, if F008 were the name of 
a variable, and the user writes F0008*X, he will first be asked to approve 
F0008*X -> FOOO ( XX, 101 and if he refuses, then be offered the F0008 -> F008 
correction. 

CLISP also contains Provision for correcting misspellings of infix operators 
(other than single characters), IF words, and i.s. operators. This is 
implemented in such a way that the user who does not misspell them is not 
penalized. For example, if the user writes IF N=0 THEN 1 ELSSE N*(FACT N-l) 
CLISP does not operate by checking each word to see if it is a misspelling of 
IF, THEN, ELSE, or ELSEIF, since this would seriously degrade CLISP's 
perrormance on all IF Statements. Instead, CLISP assumes that all of the IF 
words are spelled correctly, and transforms the expression to 
(COND ((ZEROP N) 1 ELSSE N*(FACT N-l))). Later, after DWIM cannot find any 
other Interpretation for ELSSE, and using the fact that this atom originally 
appeared in an IF Statement, DWIM attempts spelling correction, using 


If more than one infix operator was involved in the CLISP construct, e.g., 
X+Y+Z, or the Operation was an assignment to a variable already noticed, or 
■Lroatasc1ispflg is T (initially NIL), the user will simply be informed of 
the correction. Otherwise, even if DWIM was enabled in TRUSTING mode, the 
user will be asked to approve the correction. 


The 8-9 transformation is tried before spelling correction since it is 
empirically more likely that an unbound atom or undefined function 
containing an 8 or a 9 is a parenthesis error, rather than a spelling 
error. 
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(IF THEN ELSE ELSEIF) for a spelling list. When this is successful, DWIM 
' f a i 1 s ' all the way back to the original IF Statement, changes ELSSE to ELSE, 
and Starts over. Misspellings of AND, OR, LT, GT, etc. are handled similarly. 

CLISP also contains many Do-What-I-Mean features besides spelling corrections. 
For example, the form (LIST +X Y) would generate a MISSING OPERATOR error. 
However, (LIST -X Y) makes sense, if the minus is unary, so DWIM offers this 
Interpretation to the user. Another common error, especially for new users, is 
to write (LIST X*FOO(Y)) or (LIST X*FOO Y), where F00 is the name of a 
function, instead of (LIST X*(FOO Y)). Therefore, whenever an Operand that is 
not bound is also the name of a function (or corrects to one), the above 
interpretations are offered. 


23.15 CLISP Interaction with User 


Syntactically and semantically well formed CLISP transformations are always 
performed without informing the user. Other CLISP transformations described in 
the previous section, e.g. misspellings of operands, infix operators, 
parentheses errors, unary minus - binary minus errors, all follow the same 
protocol as other DWIM transformations (Section 17). That is, if DWIM has been 
enabled in TRUSTING mode, or the transformation is in an expression typed in by 
the user for immediate execution, user approval is not requested, but the user 
is informod. J However, if the transformation involves a user program, and 
DWIM was enabled in CAUTIOUS mode, the user will be asked to approve. If he 
says NO, tho transformation is not performed. Thus, in the previous section, 


iQ2 --- . * 

However, in certain situations, DWIM will ask for approval even if DWIM is 
enabled in TRUSTING mode. For example, the user will always be asked to 
approve a spelling correction that might also be interpreted as a CLISP 
transformation, as in LAST-ELL -> LAST-EL. 
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phrases such as "one of these (transformations) succeeds" and "the 
transformation LAST-ELL -> LAST-EL would be found" etc., all mean if the user 
is in CAUTIOUS mode and the error is in a program, the corresponding 
transformation will be performed only if the user approves (or defaults by not 
responding). If the user says NO, the procedure followed is the same as though 
the transformation had not been found. For example, if A*B appears in the 
function F00, and B is not bound (and no other transformations are found) the 
user would be asked 

A*B [IN FOO] TREAT AS CLISP ? 103 

If the user approved, A*B would be transformed to (ITIMES A B), which would 
then cause a U.B.A. B error in the event that the program was being run 
(remembor the entire discussion also applies to DWIMIFYing). If the user said 
NO, A*B would be left alone. 


23,16 CLISP Internal Convention s 

Note: the reader can skip this section and proceed to "Function and Variables" 
(page 23.71), unless he wants to add new operators, or modify the action of 
existing ones (other than by making declarations). 

CLISP is almost entirely table driven by property lists for the corresponding 
infix or prefix operators. Thus it is relatively easy to add new infix or 
profix operators or change old ones, simply by adding or changing selected 
proporty vnlues.* 04 


The waiting time on such interactions is three times as long as for simple 
corrections, i.e., 3*dwimwalt. 


There is some built in Information for handling minus, :, ', <, >, and ~ 

th t V IS l r COUld not himself add 'special' operators, although he 

can disable them. 
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CLISPTYPE 


UNARYOP 


1Q& ' ~ 

Unless otherwise 
the operator. 


The property value of the property CLISPTYPE is the 
precedence number of the operator:* 0 ® higher values 
have higher precedence, i.e. are tighter. Note that 
the actual value is unimportant, only the value 
relative to other operators. For example, CLISPTYPE 
for t, and * are 14, 6, and 4 respectively. 
Operators with the same precedence group left to right, 
e.g., / also has precedence 4, so A/B*C is (A/B)*C. 

An operator can have a different left and right 
precedence by making the value of CLISPTYPE be a dotted 
pair of two numbers, e.g., CLISPTYPE of - is (0 . -12). 
In this case, car is the left precedence, and cdr the 
right, i.e., car is used when comparing with operators 
on the left , and cdr with operators on the right. For 
example, A*B*-C+D is parsed as A*(B*-(C+D)) because the 
left precedence of ♦- is 8, which is higher than that of 
*, which is 4. The right precedence of ♦- is -12, which 
is lower than that of +, which is 2. 

If the CLISPTYPE property for any infix operator is 
removed, the corresponding CLISP transformation is 
disabled, as well as the inverse CLISPIFY 
transformation. 

The value of property UNARYOP must be T for unary 
operators. The Operand is always on the right, i.e., 
unary operators are always prefix operators. 


specified, the property is stored on the property list of 


23.69 




BROADSCOPE 


The value of property BROADSCOPE is T if the operator 
has lower precedence than INTERLISP forms, e.g., LT, 
EQUAL, AND, etc. For example, (FOO X AND Y) parses as 
((F00 X) AND Y). If the BROADSCOPE property were 
removed from the property list of AND, (FOO X AND Y) 
would parse as (FOO (X AND Y)). 

LISPFN The value of the property LISPFN is the name of the 

function to which the Infix operator translates. For 
example, the value of LISPFN for t is EXPT, for ' 
QUOTE, atc. If the value of the property LISPFN is 
NIL, the infix operator itself is also the function 
e.g., AND, OR, EQUAL. 

SETFN If FOO has a SETFN property FIE, then (FOO --)«-X 

translates to (FIE -- X). For example, if the user 
makes ELT be an infix operator, e.g. #, by putting 
appropriate CLISPTYPE and LISPFN properties on the 
property list of # then he can also make # followed by 
- translate to SETA, e.g. X#N-Y to (SETA X N Y), by 
putting SETA on the property list of ELT under the 
property SETFN. Putting (ELT) (i.e. list[ELT])) on the 
property list of SETA under property SETFN will enable 
SETA forms to CLISPIFY back to ELT's. 

CLISPINFIX The value of this property is the CLISP infix to be 

used in CLISPIFYing. This property is stored on the 
property list of the corresponding INTERLISP function, 
e.g., the value of property CLISPINFIX for EXPT is t, 
for QUOTE is ' etc. 
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Global declarations operate by changing the corresponding LISPFN and CLISPINFIX 
properties. 


clispchars 


clispcharray 


clispinfixes 


ls a list of single character operators that can appear 
in the interior of an atom. Currently these are: +, 

*» /. '( =, -, <, and >. 

is a bit table of the characters on clispchars used for 
calls to strposl (see Section 10). clispcharray is 
initialized by performing 

(SETQ CLISPCHARRAY (MAKEBITTABLE CLISPCHARS)). 

is a list of infix operators used for spelling 
correction. 


As an examplo, suppose the user wants to make | be an infix character operator 
meaning OR. He performs: 


-(PUT (QUOTE |) (QUOTE CLISPTYPE) (GETP (QUOTE OR) (QUOTE CLISPTYPE))) 
-PUT(| LISPFN OR) 

—PUT(| BROADSCOPE T) 

-PUT(OR CLISPINFIX | ) 

-SETQ(CLISPCHARS (CONS (QUOTE |) CLISPCHARS)) 

-SETQ(CLISPCHARRAY (MAKEBITTABLE CLISPCHARS)) 


23.17 CLISP Functions and Variables 

clispflg if S et to NIL, disables all CLISP infix or prefix 

transformations (but does not affect IF/THEN/ELSE 
Statements, or iterative Statements). 

If clispflg =TYPE-IN. CLISP transformations are 
performed only on expressions that are typed in for 
evaluation, i.e. not on user programs. 
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clisparray 


nofixfnslst 


nofixvarslst 


nospellflg 


dwimify[x;1] 


If clispflg =T. CLISP transformations are performed on 
all expressions. 

The initial value for clispflg is T. clispify ing 
anything will cause clispflg to be set to T. 

hash array used for storing translations. clisparray 
is checked by faulteval on erroneous forms before 
calling DWIM, and by the Compiler. 

list of functions that dwimify will not try to correct. 
See page 23.62. 

list of variables that dwimify will not try to correct. 
See page 23.62. 

If nospellf lg is T, dwimify will not perform any 
spelling corrections. The initial value of nospellflg 
is NIL. 

dwimifies x, i.e., performs all corrections and 
transformations that would be performed if x were run. 
If x is an atom and 1 is NIL, x is treated as the name 
of a function, and its entire definition is dwimified. 
Otherwise, if x is a list or 1 is not NIL, x is the 
expression to be dwimified. If 1 is not NIL, it is the 
edit push-down list leading to x» and is used for 
determining context, i.e., what bound variables would 
be in effect when x was evaluated, whether x is a form 
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dwimifyfns[fns] 


dwimifycompflg 


clispdec[doclst] 


clispify[x;1] 


or sequence of forms, e.g., a cond clause, etc 

nlambda, nospread. Dwiraifies each function on fns . If 
fns consists of only one element, the value of car[fns] 
is usod, e.g., dwimifyfns[FOOFNS]. Every 30 seconds, 
dwimifyfns prints the name of the function it is 
Processing, a la prettyprint . 

if T, dwimify is called before compiling an expression. 
See page 23.63. 

puts into effect the declarations in declst . clispdec 
performs spelling corrections on words not recognized 
as declarations. clispdec is undoable. 

clispifies x. If x is an atom and 1 is NIL, x is 
treated as the name of a function, and its definition 
(or EXPR property) is clispified. After clispify has 
finished, x is redofined (using /PUTD) with its new 
CLISP definition. The value of clispify is x. If x is 
atomic and not the name of a function, spelling 
correction is attempted. If this fails, an error is 
generated. 

If x is a list, or 1^ is not NIL, x itself is the 
expression to be clispified. If 1 is not NIL, it is 
the edit push-down list leading to x and is used to 
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If x is an iterative Statement and 1 is NIL, dwimify will also print the 
translation, i.e. what is stored in the hash array. 




clispifyfns[fns] 


cldisable[op] 


clispiftranflg 


cl:flg 


clremparsflg 


determino context as with dwimify . as well as to obtain 
the local declarations, if any. The value of clispify 
is the clispified Version of x. 

See earlier section on CLISPIFY for more details. 

nlambda, nospread. Calls clispify on each member of 
fns undor errorset protection. If fns consists of only 
one element, the value of car[fns] is used, e.g., 
clispifyfns[FOOFNS]. Every 30 seconds, clispifyfns 
prints the name of the function it is working, a la 
prettyprlnt . Value is list of functions clispify ed. 

disables oj), e.g. cldisable[-] makes - be just another 
character. cldisable can be used on all CLISP 
operators, e.g. infix operators, prefix operators, 
iterative stateraent operators, etc. cldisable is 
undoable. 

affects handling of translations of IF| THEN|ELSE 
Statements. If T, the translations are stored 
elsewhere, and the (modified) CLISP retained. If NIL, 
the corresponding COND expression, replaces the CLISP. 
clispiftranflg is initially NIL. See page 23.30. 

affects clispify 's handling of forms beginning with 
car, cdr , ... cddddr . See page 23.59. 

affects clispify 's removal of parentheses from "small" 
forms. See page 23.59. 
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clispifypackflg 


clispifyprettyflg 


prettytranflg 


PPT 


CLISP: 


funnyatomist 


if T, informs clispify to pack operator and atomic 
operands into single atoms; if NIL, no packing is done. 
See page 23.60. 

if T, causes prettyprint to CLISPIFY expressions before 
printing them. clispifyprettyflg is (temporarily) reset 
to T when makefile is called with the Option CLISPIFY. 
clispifyprettyflg is initially NIL. 

If T, causes prettyprint to print translations instead 
of CLISP expressions. This is useful for creating a 
file for Compilation, or for exporting to a LISP System 
that does not have CLISP. prettytranf lg is 
(temporarily) reset to T when makefile is called with 
the Option NOCLISP. If prettytranfln is CLISP%_, both 
the CLISP and translations are printed in appropriate 
form. For more details, see page 23.32. prettytranf lg 
is initially NIL. 


is both a function and an edit macro for prettyprinting 
translations. It performs a PP after first resetting 
prettytranflg to T, thereby causing any translations to 
be printed instead of the corresponding CLISP. 


edit macro that obtains the translation of the correct 
expression, if any, from clisparray . and calls edite on 
it. 


list of idcntifiers containing CLISP operators. Used 
by clispify to avoid accidentally constructing a user 
identifier, e.g., (ITIMES A B) should not become A *B if 
A*B is the name of a PROG variable. See page 23.60. 
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CL edit nacro. Replaces current expression with 

CLISPIFVed current expression. Current expression can 
be an element or tail. 

DW edit macro. DWIMIFYs current expression, which can be 

an element (atom or list) or tail. 

Both CL and DW can be called when the current expression is either an element 
or a tail and will work properly. Both consult the declarations in the 
function being edited, if any, and both are undoable. 

lowercase[flg] If flg sT, lowercase makes the necessary internal 

modifications so that clispify will use lower case 
versions of AND, OR, IF, THEN, ELSE, ELSEIF, and all 
i.s. operators. This produces more readable output. 
Note that the user can always type in either upper or 
lower case (or a combination), regardless of the action 
of lowercase . 

If flfl=NIL, clispify will use uppercase versions of 
AND, OR, et al. The value of lowercase is its previous 
'setting*. Lowercase is undoable. 

lowercase also sets mode!33flg to null[flg], as well as 
performing raise[null[flg]]. mode!33flg affects the 
Operation of the spelling eorrector to the extent that 
it says something about the layout of the keyboard (see 
Section 17). raise[T] is the same as the TENEX command 
RAISE, and informs TENEX to raise all lower case 
characters on input, i.e. convert them to uppercase. 
raise[] corresponds to NO RAISE. 
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APPENDICES 


Appendix 1 


Transor 


Introduction 


transor is a LISP-to-LISP translator intended to help the user who has a 
program coded in one dialect of LISP and wishes to carry it over to another. 
The user loads transor along with a file of transformations. These 
transformations describe the differences between the two LISPs, expressed in 
terms of INTERLISP editor commands needed to convert th,e old to new, i.e. to 
edit forms «ritten in the source dialect to make them suitable for the target 
dialect. transor then sweeps through the user's program and applies the edit 
transformations, producing an object file for the target System. In addition, 
transor produces a file of translation notes, which catalogs the major changes 
made in the code as well as the forms that require further attention by the 
user. Operationally, therefore, transor is a facility for conducting massive 
edits, and may be used for any purpose which that may suggest. 

Since the edit transformations are fundamental to this process, let us begin 
with a definition and some examples. A transformation is a list of edit 
commands associated with a literal atom, usually a function name. transor 
conducts a sweep through the user's code, until it finds a form whose car is a 
literal atom which has a transformation. The sweep then pauses to let the 
editor execute the list of commands before going on. For example, suppose the 
order of arguments for the function tconc must be reversed for the target 
System. The transformation for tconc would then be: ((SW 2 3)). When the 
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sweep encounters the form (TCONC X (F00)), this transforroatlon would be 
retrieved and executed, Converting the expression to (TCONC (FOO) X). Then the 
sweep would locate the next form, in this case (FOO), and any transformations 
for foo would be executed, etc. 

Most instances of tconc would be successfully translated by this 
transformation. However, if there were no second argument to tconc , e.g. the 
form to be translated was (TCONC X), the command (SW 2 3) would cause an error, 
which transor would catch. The sweep would go on as before, but a note would 
appear in the translation listing stating that the transformation for this 
particular form failed to work. The user would then have to compare the form 
and the commands, to figure out what caused the problem. One might, however, 
anticipate this difficulty with a more sophisticated transformation: 
((IF (## 3) ((SW 2 3)) ((-2 NIL)))), which tests for a third element and does 
(SW 2 3) or (-2 NIL) as appropriate. It should be obvious that the translation 
process is no more sophisticated than the transformations used. 

This documentation is divided into two main parts. The first describes how to 
use transor assuming that the user already has a complete set of 
transformations. The second documents transorset . an Interactive routlne for 
bullding up such sets. transorset contains commands for writing and editing 
transformations, saving one's work on a file, testing transformations by 
translating sample forms, etc. 

Two transformations files presently exist for translating programs into 
INTERLISP. <LISP>SDS940.XFORMS is for old BBN LISP (SDS 940) programs, and 
<LISP>LISP16.XF0RMS is for Stanford AI LISP i.6 programs. A set for LISP 1.5 
is planned. 
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Using Transor 


The first and most exasperating Problem in carrying a program from one 
implementation to another is simply to get it to read in. For example, SRI 
LISP uses / exactly as INTERLISP uses X, i.e. as an escape character. The 
function fi resca n exists to help with these Problems: the user uses prescan to 
perform an initial scan to dispose of these difficulties, rather than 
attempting to transor the foreign sourcefiles directly. 

E fescan copies a file, performing character-for-character substitutions. It is 
hand-coded and is much faster than either readc's or text-editors. 

prescan[file;charlst] Makes a new Version of file . performing 

substitutions according to charlst . Each element 
of charlst must be a dot-pair of two character 
Codes, (OLD . NEW). 

For example, SRI files are prescan 'ed with charlst « ((37 . 47) (47 . 37)), 
which exchanges slash (47) and percent-sign (37). 


The user should also make sure that the treatment of doublequotes by the source 
and target Systems is similar. In INTERLISP, an unmatched double-quote (unless 

protected by the escape character) will cause the rest of the file to read in 
as a string. 

Finally, the lack of a STOP at the end of a file is harmless, since transor 
will suppress END OF FILE errors and exit normally. 


Translatinq 


t ransor is the top-level function of the translator itself, and takes one 
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argument, a file to b© translated. The file is assumed to contain a sequencs 
of forms, which are read in, translated, and output to a file called file.TRAN. 
The translation notes are meanwhile output to file.LSTRAN. Thus the usual 
sequence for bring a foreign file to INTERLISP is as follows: prescan the file; 
examine code and transformations, making changes to the transformations if 
needed; transor the file; and clean up remaining Problems, guided by the notes. 
The user can now make a pretty file and proceed to exercise and check out his 
program. To export a file, it is usually best to transor it, then prescan it, 
and perform clean-up on the foreign System where the file can be loaded. 

transortsourcefile] Translates sourcefile . Prettyprints translation 

on file.TRAN: translation listing on file.LSTRAN. 

transorform[form] Argument is a LISP form. Returns the 

(destructively) translated form. The translation 
listing is dumped to the primary output file. 

transorfnsffnlst] Argument is a list of function names whose 

interpreted definitions are destructively 
translated. Listing to primary output file. 

transform and transorfns can be used to translate expressions that are already 
in core, whereas transor itself only vrorks on files. 

The Translation Notes 

The translation notes are a catalog of changes made in the user's code, and of 
Problems which require, or may require, further attention from the user. This 
catalog consists of two cross-indexed sections: an Index of forms and an Index 
of notes. The first tabulates all the notes applicable to any form, whereas 
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the second tabulates all the forms to which any one note applles. Forms appear 
in the Index of forms in the order in which they were encountered, i.e. the 
order in which they appear on the source and output files. The Index of notes 
shows the name of each note, the entry numbers where it was used, and its text, 
and is alphabetical by name. The following sample was made by translating a 
small test file written in SRI LISP. 



LISTING FROH TRANSORING OF FILE TESTFILE.;5 
DONE ON l-NOV-71 20:10:47 

INDEX OF FORMS 


1. APPLY/EVAL at 
[DEFINEQ 

(FSET (LAMBDA & 

(PROG ...3... 

(SETQ Z (COND 

((ATOM (SETQ —)) 

(COND 

((ATOM (SETQ Y (NLSETQ "(EVAL W)"))) 

--) 

--)) 

-)) 

" ] 

2. APPLY/EVAL at 
[DEFINEQ 

(FSET (LAMBDA & 

(PROG ...3... 

(SETQ Z (COND 

((ATOM (SETQ —)) 

• (COND 

((ATOM (SETQ —)) 

"(EVAL (NCONS W))*) 

-•)) 

--)) 

-- 3 

3. MACHINE-CODE at 
[DEFINEQ 

(LESS1 (LAMBDA & 

(PROG ...3... 

(COND 

... 2 ... 

((NOT (EQUAL (SETQ X2 "(OPENR (MAKNUM & -))" 

) 

--)) 

--)) 

-- ] 

4. MACHINE-CODE at 
[DEFINEQ 

(LESS1 (LAMBDA & 

(PROG ...3... 

(COND 

... 2 ... 

((NOT (EQUAL & (SETQ Y2 

"(OPENR (MAKNUM & —.))"))) 

~)) 

^ ] 


INDEX OF NOTES 


APPLY/EVAL at 1, 2. 

TRANSOR will translate the argumenta of the APPLY or EVAL sxpresslon, but 
the user must make sure that the run-tlme evaluatlon of the argumenta returns a 
BBN-compatIble expresslon. 

MACHINE-CODE at 3, 4. 

Expression dependent on machlne-code. User must recode. 
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The translation notes are generated by the transformatlons usod, and therefore 
reflect the judgment of their author as to what should b® included. 
Straightforward conversions are usually made without comment; for example, the 
DEFPROP's in this file were quietly changed to DEFINEQ's. transor found four 
noteworthy forms on the file, and printed an entry for each in the index of 
forms, consisting of an entry number, the name of the note, and a printout 
showing the precise location of the form. The form appears in double-quotes 
and is the last thing printed, except for closing parentheses and dashes. An 
ampersand represents one non-atomic element not shown, and two or more elements 
not shown are represented as ...n..., where n is the number of elements. Note 
that the printouts describe expressions on the output file rather than the 
source file; in the example, the DEFPROP's of SRI LISP have been replaced with 
DEFINEQ's. 

Errors and Messages 

l Q»nsor records its progress through the source file by teletype printouts 
which identify each expression as it is read in. Progress within large 
expressions, such as a long DEFINEQ, is reported every three minutes by a 
printout showing the location of the sweep. 

If a transformation falls, transor prints a diagnostic to the teletype which 
identifies the faulty transformation, and resumes the sweep with the next form. 
The translation notes will identify the form which caused this failure, and the 
extent to which the form and its arguments were compromised by the error. 

If the transformation for a common function falls repeatedly, the user can type 
control-H. When the System goes into a break, he can use trensorset to repair 
the transformation, and even test it out (see TEST cotmoand, page Ai.il). He 
may then contlnue the main translation with OK. 
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Transorset 


To use transorset , type transorset !) to INTERLISP. transorset will respond 
with a + sign, its prompt character, and await input. The user is now in an 
executive loop which is like evalqt with some extra context and capabilities 
intended to facilitate the writing of transformations. transorset will thus 
progress apply and eval input, and execute history commands just as evalqt 
would. Edit commands, however, are interpreted as additions to the 
transformation on which the user is currently working, transorset always saves 
on a variable named currentfn the name of the last function whose 
transformation was altered or examined by the user. currentfn thus represents 
the function whose transformation is currently being worked on. Whenever edit 
commands are typed to the ♦ sign, transorset will add them to the 
transformation for currentfn . This is the basic mechanism for writing a 
transformation. In addition, transorset contains commands for printing out a 
transformation, editing a transformation, etc., which all assume that the 
command applies to currentfn if no function is specified. The following 
example illustrates this process., 
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-TRANSORSET() 

+FN TCONC 
TCONC 
+(SW 2 3) 

♦TEST (TCONC A B) 

P 

(TCONC B A) 

+TEST (TCONC X) 

TRANSLATION ERROR: FAULTY TRANSFORMATION 
TRANSFORMATION: ((SW 2 3)) 

OBJECT FORM: (TCONC X) 


Ci] 



[4] 

[5] 


1. TRANSFORMATION ERROR AT 
"(TCONC X)" 


[ 6 ] 


(TCONC X) 

+(IF (## 3) ((SW 2 3)) (( 

♦SHOW 

TCONC 

C(SW 2 3) 

(IF (## 3) 

((SW 2 3)) 

<(-2 NIL] 

TCONC 

+ERASE 

TCONC 

+REDO IF 

♦SHOW 

TCONC 

C(IF (## 3) 

((SW 2 3)) 

((-2 NIL] 

TCONC 
+TDST 
= TEST 

(TCONC NIL X) 

+ 


NIL] [7] 

[ 8 ] 

[9] 

CIO] 

dl] 
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In this example, the user beglns by using the FN command to set currentfn to 


TCONC [1], He then adds to the (empty) transformation for tconc a command to 
switch the order of the arguments [2] and tests the transformation [3]. His 
second TEST [4] falls, causing an error diagnostic [5] and a translation note 
[6]. He writes a better command [7] but forgets that the original SW command 
is still in the way [8]. He therefore deletes the entire transformation [9] 
and redoes the IF [10]. This time, the TEST works [11]. 


Transorset Commands 


The following commands for manipulating transformations are all lispxmacros 
which treat the rest of their imput line as arguments. Ali are undoable. 

PN Resets currentfn to its argument, and returns the 

new value. In effect FN says you are done with 
the old function (as least for the moment) and 
wish to work on another. If the new function 
already has a transformation, the message 
(OLD TRANSFORMATIONS) is printed, and any 
edltcommands typed in will be added to the end of 
the existing commands. FN followed by a carriage 
return will return the value of currentfn without 
changing it. 

SH0W Command to prettyprint a transformation. SHOW 

followed by a carriage return will show the 
transformation for currentfn . and return currentfn 
as its value. SHOW followed by one or more 
function names will show each one in turn, reset 
currentfn to the last ono, and return the new 
value of currentfn. 
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EOIT 


ERASE 


TEST 


DUMP 


Command to edit a transformation. Similar to SHOW 
except that instead of prettyprinti.no the 
transformation, EOIT gives it to edite. The user 
can then work on the transformation until he 
leaves the editor with OK. 

Command to delete a transformation. Otherwise 
similar to SHOW. 

Command for checking out transformations. TEST 
takes one argument, a form for translation. The 
translation notes, if any, are printed to the 
teletype, but in an abbreviated format which omits 
the Index of notes. The value returned ls the 
translated form. TEST saves a copy of its 
argument on the free variable testform , and if no 
argument is given, it uses testform , i.e. tries 
the previous test again. 

Command to save your work on a file. DUMP takes 
one argument, a filename. The argument is saved 
on the variable dumpfile , so that if no argument 
is provided, a new Version of the previous file 
will be created. 


The DUMP command creates files by makefile . Normally fileFNS will be unbound, 
but the user may set it himself; functions called from a transformation by the 
E command may be saved in this way. DUMP makes sure that the necessary command 
is included on the fileVARS to save the user's transformations. The user may 
add anything eise to his fileVARS that he wishes. When a transformation file 

is loaded, all previous transformations are erased unless the variable merge is 
set to T. 
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EXIT 


transorset returns NIL. 


The REMARK Feature 


The translatlon notes are generated by those transformations that are actually 
executed via an editmacro called REMARK. REMARK takes one argurnent, the name 
of a note. When the macro is executed, it saves the appropriate Information 
for the translatlon notes, and adds one entry to the Index of forms. The 
location that is printed in the Index of forms is the editor's location when 
the REMARK macro is executed. 

To write a transformation which makes a new note, one must therefore do two 
things: define the note, i.e. choose a new name and associate it with the 
desired text; and call the new note with the REMARK macro, i.e. insert the edit 
command (REMARK name) in some transformation. The NOTE coimnand, described 
below, is used to define a new note. The call to the note may be added to a 
transformation like any other edit command. Once a note is defined, it may be 
called from as many different transformations as desired. 

The user can also specify a remark with a new text, without bothering to think 
of a name and perform a separate defining Operation, by calling REMARK with 
more than one argurnent, e.g. (REMARK text-of-remark). This is interpreted to 
mean that the arguments are the text. transorset notices all such expressions 
as they are typed in, and handles naming automatically; a new name is 
generated^ and defined with the text provlded, and the expression itself is 
edited to be (REMARK generated-name). The following example illustrates the 
use of REMARK. 


The name generated is the value of currentfn suffixed with a colon, or with 
a number and a colon. 
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-TRANSORSET() 

♦NOTE GREATERP/LESSP (BBN'S GREATERP AND LESSP ONLY [1] 

TAKE TWO ARGUMENTS, WHEREAS SRI'S FUNCTIONS TAKE AN 

INDEFINITE NUMBER. AT THE PLACES NOTED HERE, THE SRI CODE 

USED MORE THAN TWO ARGUMENTS, AND THE USER MUST RECODE.l 

GREATERP/LESSP 

+FN GREATERP 

GREATERP 


+ (IF (IGREATERP (LENGTH (##))3) 

+FN LESSP 

LESSP 

+REDO IF 

♦SHOW 

LESSP 


NIL ((REMARK GREATERP/LESSP] [2] 


C3] 


[(IF (IGREATERP (LENGTH (##)) 

3) 

NIL 

((REMARK GREATERP/LESSP] 

LESSP 
+FN ASCII 

(OLD TRANSFORMATIONS) 

ASCII 

♦(REMARK ALTHOUGH THE SRI FUNCTION ASCII IS IDENTICAL [4] 

TO THE BBN FUNCTION CHARACTER, THE USER MUST MAKE SURE THAT 
THE CHARACTER BEING CREATED SERVES THE SAME PURPOSE ON BOTH 
SYSTEMS, SINCE THE CONTROL CHARACTERS ARE ALL ASSIGNED 
DIFFRENTLY.] 

♦ SHOW re-, 

ASCII LÖJ 


((1 CHARACTER) 
(REMARK ASCII:)) 
ASCII 

♦NOTE ASCII: 

EDIT 
*NTH -2 
*P 


[ 6 ] 


... ASSIGNED DIFFRENTLY.) 
*(2 DIFFERENTLY.) 

OK 

ASCII: 

+ 
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In this exaraple, the user defines a note named GREATERP/LESSP by using the NOTE 
command [1], and writes transformations which call this note whenever the sweep 
encounters a GREATERP or LESSP with more than two arguments [2-3]. Next, the 
implicit naming feature is used [4] to add a REMARK command to the 
transformation for ASCII, which has already been partly written. The user 
realizes he mistyped part of the text, so he uses the SHOW command to find the 
name chosen for the note [5]. Then he uses the NOTE command on this name, 
ASCII:, to edit the note [6]. 

N0TE First argument is note name and must be a literal 

atom. If already defined, NOTE edits the old 
text; otherwise it defines the name, reading the 
text either from the rest of the input line or 
fron the next line. The text may be given as a 
line or as a list. Value is name of note. 

The text is actually stored. 2 as a comment, i.e. a * and XX are added in front 
when the note is first defined. The text will therefore be lower-cased the 
first time the user OUMPs (see Section 14). 

DELNOTE Oeletes a note completely (although any calls to 

it remain in the transformations). 


Controlling the Sweep 

transor 's sweep searches in print-order until it finds a form for which a 
transformation exists. The location is marked, and the transformation is 


2 


On the global list usernotes. 




executed. The sweep then takes over again, beginning from the marked location, 
no matter where the last command of the transformation left the editor. User 
transformations can therefore move around freely to examine the context, 
without worrylng about confusing the translator. However, there are many cases 
where the user wants his transformation to guide the sweep, usually in order to 
direct the Processing of special forms and FEXPR's. For example, the 
transformation for QUOTE has only one objective: to teil the sweep to skip over 
the argument to QUOTE, which is (presumably) not a LISP form. NLAM is an 
editmacro to permit this. 

An atomic editmacro which sets a flag which causes 
the sweep to skip the arguments of the current 
form when the sweep resumes. 

Special forms such as cond , prog , selectq , etc., present a more difficult 
Problem. For example, (COND (A B)) is processed just like (FOO (A B)): i.e. 
after the transformation for cond finishes, the sweep will locate the "next 
form," (A B), retrieve the transformation for the function A, if any, and 
execute it. Therefore, special forms must have transformations that preempt 
the sweep and direct the translation themselves. The following two atomic 
editmacros permit such transformations to process their forms, translating or 
skipping over arbitrary subexpressions as desired. 


DOTHIS 

Translates 


treating it 

DOTHESE 

Translates 


treating it 


the editor's current expression, 

as a single form. 

the editor's current expression, 

as a list of forms. 
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For example, a transformation for setq might be (3 DOTHIS). 3 This translates 
the second argument to a setq without translating the first. For cond . one 
might write (1 (LPQ NX DOTHESE)), which locates each clause of the COND in 
turn, and translates it as a list of forms, instead of as a single form. 

The user who is starting a completely new set of transformations must begin by 
writing transformations for all the special forms. To assist him in this and 
prevent oversights. the file <LISP>SPECIAL.XFORMS contains a set of 
transformations for LISP special forms. as well as some other transformations 
which should also be lncluded. The user will probably have to revise these 
transformations substantially, since they merely perform sweep control for 
INTERLISP, i.e. they make no changes in the object Code. They are provided 
chiefly as a checklist and tutorial device, since these transformations are 
both the first to be written and the most difficult. especially for users new 
to the INTERLISP editor. 


* * * 

When the sweep mechanism encounters a form which is not a list, or a form car 
of which is not an atom, it retrieves one of the following special 
transformations. 

NLISTPCOMS Global value is used as a transformation for any 

form which is not a list. 

For example, if the user wished to make sure that all strings were quoted, he 
might set nlistpcoms to. 

((IF (STRINGP (##)) ((ORR ((«- QUOTE))((MBD QUOTE)))) NIL)). 

O ~ m> m + mmmmmmmm m mm mm mm mm mm m m m, mmmmmrn* mmmmmmmmmmwmmmm.— 

Recall that a transformation is a list of edit commands. In this case, 
there are two commands, 3 and DOTHIS. 
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LAMBDACOMS 


Global value is used as a transformation for any 
form, car of which is not an atom. 


These variables are initialized by <LISP>SPECIAL.XFORMS and are saved by the 
DUMP command. nlistpcoms is initially NIL, making it a NOP. lambdacoms is 
initialized to check first for open LAMBDA expressions, Processing them without 
translation notes unless the expression is badly formed. Any other forras with 
a non-atomic car are simply treated as lists of forms and are always mentioned 
in the translation notes. The user can change or add to this algorithm simply 
by editing or resetting lambdacoms. 
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The INTERLISP Interpreter 

The flow chart presented below describes the Operation of the INTERLISP 
Interpreter, and corresponds to the m-expression definition of the LISP i.5 
Interpreter to be found in the LISP 1.5 manual, [McCl]. Note that car of a 
form must be a function; it cannot evaluate to a function. 


Ir £§£ of a form is atomic, its function cell must contain 

(a) an S-expression of the form (LAMBDA ...) or (NLAMBDA or 

(b) a pointer to compiled code; or 

(c) a SUBR definition (see Section 8); 

Otherwise the form is considered faulty. 

If of a form is an S-expression beginning with LAMBDA or NLAMBDA, the 
S-expression is the function. If car of the form begins with FUNARG, the 
funarfl mechanisra is invoked (see Section 11). Otherwise the form is faulty. 
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CADR C 
IS FN, 
CADDR C 
SPECIFIES 
BINDINGS 



SET C = 

CAR FORM 


' 


BOUND 
ON PUSH 
LIST? 


NO 


YES 


NO 


IS 

C ATOMIC 
? 


CONTENTS \NC) 
OF VALUE 
.CELL = NOBIND? 


CALL 

EXPR 



* 

YES 

r _ 

RETURN 
BlND1NG 

-1 l'tb 1 


SET D = 
CONTENTS OF 
DEFINITION CELL 



RETURN 
FAULTE VAL [FORM]! 


CALL SU BR, 
COMPI LED CODE, 
OR EXPR 


RETURN 

FAULTEVAL [FORM] 


FIGURE A2-I 


Note: variables c and d are for description only; they are not actually bound 
as variables. 
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Control Characters 


Several teletype control characters are available to the user for coramunicatlng 
directly to INTERLISP, i.e., not through the read program. These characters 
are enabled by INTERLISP as Interrupt characters, so that INTERLISP immediately 
sees the characters, and takes the corresponding action as soon as possible. 
ror example, control characters are available for abortlng or interrupting a 
computation, changing the prlntlevel, returning to TENEX, etc. This section 
summarizes the actlon of these characters, and references the appropriate 
section of the manual where a more complete description may be obtained. 


Control Characters Affecting the Flow of Computation 


1. 

control-H 

(Interrupt) at next function call, INTERLISP goes into 
a break. Section 16. 

2. 

control-B 

(break) computation is stopped, stack backed up to the 
last function call, and a break occurs. Section 16. 

3. 

control-E 

(error) computation is stopped, stack backed up to the 
last errorset, and NIL returned as its valtie. .wt.inn 
16 . 

4. 

control-D 

(reset) computation is stopped, control returns to 
evalat. 

5. 

control-C 

(TENEX) computation is stopped, control returns to 
TENEX. Program can always be continued without any ill 
effect with TENEX CONTINUE command. 


If typed during a garbage collection the action of control-B, control-E, and 
control-D is postponed until the garbage collection is completed. 


Typing control-E and control-D causes INTERLISP to clear and save the input 
buffers. Their contents can usually be recovered via the SBUFS (alt-modeBUFS) 
command, as described in Section 22. 


I/O Control Characters 


clears teletype input buffer. For example, rubout 
would be used if the user typed ahead while in a 
garbage collection and then changed his mind. Section 
2. A bell is rung when the buffer has been cleared, so 
that the user will know when he may begin typing again. 
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Note: a sudden burst of noise on a telephone line frequently causes INTERLISP 
to receive a rubout, since the code for rubout is 177Q, i.e. all 1 's. This 
causes INTERLISP to (mistakenly) clear the input buffer and ring a bell. If 
INTERLISP seems to be typing many spurious bells, it is a good indication that 
you have a bad Connection. 


2. control-0 

3. control-P 

4. control-A, Q 

5. control-R 


Miscellaneous 
1. control-T 


2. control-S 

3. control-U 


clears teletype output buffer, Sections 2 and 14. 

changes printlevel. Section 14. 

line editing characters, Sections 2 and 14. 

causes INTERLISP to retype the input line, useful after 
several control-A*s, e.g., 

user types: «-DEFINEQ((LAMDA\A\DBA\Acontrol-R 

INTERLISP types: DEFINEQ((LAHB 


(time) prints total execution time for program, as well 
as its Status, e.g., 

*-RECLAIM() 

GC: 8 

RUNNING AT 15272 USED 0:00:04.4 IN 0:00:39 

1933, 10109 FREE WOROS 

10109 

- IO WAIT AT 11623 USE0 0:00:05.1 IN 0:00:49 

(storage) change minfs . Section 10. 

if typed in the middle of an expression that is being 
typed to evalqt . breakl or the editor, will cause the 
editor to be called on the expression when it is 
finished being read. See Section 22. 
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BTV* (break command) ... 15.8,10 

BY (clisp iterative Statement operator) . 23.22-24,27 

BY (in REPLACE command) (in cditor) ... 9.42 

C (in an assemble Statement) . 18.38 

C (makcfile Option) . 14 46 

CALLS[ FN ;EXPRFLG ;VARSFLG] .. 20.10 

CAN'T - AT TOP (typed by editor) . 9.5,17 

CAN'T BE BOTH AN ENTRY AND THE BLOCK NAME 

(Compiler error message) . 18.27,52 
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CAP (edit command) 

CAR[X] SUBR . 

carriage-return . 


carriage-return (edita command/parameter) ....... 

CAUTIOUS (DW1M mode) . 

CCODEPCTNJ SUBR . 

CDR[ X ] SUBR .. 

CEXPR (function type) . 

CEXPR* (function type) ... 

CFCXPR (function type) ..... 

CFLXPR* (function type) . 

(CHANGE 0 TO ...) (edit command) . 

CHANGE DFNSLST (file package variable/parameter) . 

CIIANGEDVARSLST (file package variable/parameter).. 

CHANGENAMF[FN;FROM;TO] ... 

CHANGEPROP[X;PROPl;PROP2] . 

CHANGLSLICE[N;HISTORY;L] . 

CHARACTERLN] SUBR . 

charactcr atoms . 

charncter codcs . 

CHCON[ X; FLG ] SUBR .I.. 11IIIII 

CIICONl[X] SUBR . 

CHOOZr XWORO;REL;SPLST;TAIL;TIEFLG;FN;NDBLS;CLSTi!! 

CIRCLMAKER[L] . 

CIRCLPRINT[L; PRINTFLG;RLKNT] . 

CL (edit command) ... 

CL:FLG (clisp variable/parameter) ... 

CLD1SABLE .. 

CLEANUPLFILES] NL* . !!!!*!*!* 

CLEARBUF[FILE;FLG] SUBR . 

CLISP .... 


CLISP interaction with user .. 

CLISP internal conventions 

CLISP Operation . 

CLISP% .. 

CLISP: (edit command) . 

CLISPARRAY (clisp variable/parameter) 
CLISPCHARRAY (clisp variable/parameter) 

CLISPCMARS (clisp variable/parameter) 

CL.ISPDEC[nECLST] . 

CLISPFLG (clisp variable/parameter) .... 
CLISPIFTRANFLG (clisp variable/parameter) 
CLISPIFY[X;L] . 


CLISPIFY (makefile Option) .. 

CLISPIFYFNS[FNS] NL* .]‘ 

CLISPIFYPACKFLG (clisp variable/parameter) . 

CLISPIFYPRET7YFLG (clisp variable/parameter) .... 
CLISPJFYPRETTYFLG (prettydef variable/parameter).. 

CL1SPINFIX (property name) . 

CLISPI NF IXES (clisp variable/parameter) . 

CLISPRECORDFIELD (property name) . 

CLISPTYPE (property name) . 

CLOCKfN] SUBR ... 


9.75 

5.1 

3.2; 14.10-11,13,15-19 
23 

21.9,12 

17.3,5,23,27; 23.5,67 
8 .1,3-5 

5.1 

4.3; 8.4-5 
4.3; 8.4-5 
4.3; 8.4-5 
4.3; 8.4-5 
9.42 

14.45,50 
14.45,50 
9.90; 15.23 

7.2 

22.8,54 

10.4 

10.2 

10.4 

10.4 

10.4 

17.20-21,26 
7.6; 21.28 
7.6; 21.26-27 
9.77; 23.76 

23.59.74 

23.74 
14.45,48 
14.21; 22.30 

11.4; 14.46; 18.6,8, 
21.23; 17.16-18, 

23.1-76; 20.5 

23.67 

23.68 
23.64-67 
23.31-32,75 

23.31.75 

23.31.37.72.75 
23.71 

23.71 

23.33.73 
23.71 

23.31.74 

14.40,46; 23.36,58, 

73-74 

14.46; 23.60,75 

23.74 

23.60.75 

23.75 
14.40,46 

23.70 

23.71 
23.57 

23.69 
21.3 


INDEX. 5 























































operator) 


CLOSEALLf] SUBR . 

CLOSEF[FII.E] SUBR . . 

CLOSER[A;X] SUBR .! 

CLREMPARSFLG (clisp variable/parameter) 

CLRHASH[ARRAY] SUBR .' 

CLUMPGET[OBJECT;RELATION;UNIVERSE] 

COpE (proporty namo) . 

COLLECT (clisp iterative Statement 

COM (as sufflx to file name) . 

commands that move parentheses (in editor) 
COMMENTELG (prettydof variable/parameter) 

commcnts (in listings) .. 

compacting . 

COMPILET X; FLG ] _. 

COMPILE 1[ F N ;DEF ] . 

compiled code . 

compi 1 ed file .. ..........’ *", * * * 

compiled functions . 

COMPILEFIL ES[FILES] NL* 

Compiler . 

Compiler error messages _!. .*!.* | ’ * 

Compiler functions . 

Compiler macros ... 

Compiler printout .„* ’ * 

Compiler questions . 

Compiler structure . ’'" 

COMPILEUSERFN (Compiler variable/parameter) 
COMPILEUSERFN (use by clisp) .... 

compiling CLISP .' ” * ‘ [ 

compiling files . 

compiling FUNCTION _. 

compi 1 ing NLAMBDAs .1 !!.*!!!!!!!'.’!! 

COMPROP (prettydef command) . 

COMPROP* (prettydef command) . 

COMPSET[FILE ;FLG] . 

computed macros . ]'**’** 

COMS (prettydof command) 

(COMS xl ... xn) (edit command) .. 

(COMSQ . coms) (edit command) . 

CONCAT[Xl;X2;...;Xn] SUBR* .[ . 

COND[ C1; CZ;...;Cn] FSUBR* .!. ! 

cond clause . 

CONS[X;Y] SUBR .‘ * 

cons algorithm . 

CONSCOUNTf N ] SUBR . 

constructing lists (in clisp) !!!!.!.!..]. 

CONTIN (prog. asst. command) . 

CONTINUE (tenex command) . 

CONTINUE SAVING? (typod by System) . 

CONTINUE WITII T CLAUSE (typed by dwim) .... 
continuing an edit session .... 

CONTROL[U] SUBR ..]. 

control characters . ,!............. [ 

control pushdown list . 

control-A .. 


control-B 
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14.4 

14.4 
10.18 
23.59,74 

7.5 

20.17 

8.7-8 

23.19 

18.9,11,30 

9.51-54 

14.39 

14.30-31,40 

3.13 

18.7- 8 
18.8 
10.12 
18.8,10 

4.2 

14.48 

4.3; 18.1-52 
18.49-52 

18.7- 13,27,30 
18.14-16 
18.48-49 
18.3-5 

18.34 
18.6,13 
23.64 
23.63 
18.8,10,30 
18.16 
18.5-6 
14.35; 18.9 
14.35; 18.9 
18.3 

18.15 

14.35 

9.63 

9.64 

3.10; 10.7,12 
4.4; 5.4 

5.4 

3.7,11; 5.1 
5.2 

5.2; 10.18; 21.4 

23.16 

21.21; 22.34 
2.4,9; 21.4,19; A3.1 
22.39,57 
17.9 
9.72-74 

2.5; 14.11,14,23 
2.4-5; A3.1-2 
12.2 

2.4; 14.10,12,14-15,23 
25 

16.3,5,7,9; 21.3; A3.1 


INDEX. 6 




























































control-C 

control-D 


control-E 


control-F .. 

control -H .!!!!!!**»,**** 

controi-o .!!!!!!!!!!!!!.* 

control-P . 

control-Q ... ’*]*’*]] 

controi-R .!!!!!!!!!!!! 

controi-s . !!!!!!!!!!!!! 

con t ro i - t . 

control-U . 

copy . 

cop y[ x ] i | 

COPYING (record package) . 

COREVAL (property namo) . 

corevals !!].'!!!!!.'!!!!!!!.’!!!!.’!!!!‘ ] 

COREVALS (system variable/parameter) . 

COSf X;RAD IANSF LG] . 

couNTtx] .. !!!!!!!!!!!!! 

COUNT (clisp iterative Statement operätör) 

CPLISTS[X;Y] ...... 

CQ (in an assemble Statement) . 

CRTATE (record package) ... 

current expression (in editor) . 

CURRENTEN (transor variable) ... 

data types .. 

data-paths (in records in clisp) . 

DATEUSUBR .. 

DCUCONf X; SCRATCHLIST ;FLG] . 

DOT[] SURR . 

dcbugcjing . *.][]'’ ' 

declarations (in clisp) .!. 

DECLAREfX] FSUBR . 

declare ..!!!!!!!.'!.’!!!! 

DEFINEf X ] . 

dee ine oi x i nl* . !!!!!!!!!!!*!!!!!! 

dorining new iterative Statement operators 

DEELISIf L:PROP] ... 

DELETE (edit command) . 

(OELETE . @) (edit command) . 

DELNOTE (transor command) . 

DESTINATION IS INSIDE EXPRESSION BEING MOVED 

(typed by editor) . 

destructive Functions . 

DFNELG (system variable/parameter) 

DIFFERENCE[X; Y j | | | 
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2.4; 21.4,18-19; A3.1 
2.4; 5.10; 9.71; 14.21 
15.6,16; 16.2,7,13, 

18.7; 21.3; 22.30, 

A3.1 

9.3; 14.21; 15.6,20, 
16.3,13; 21.3,10; 22.30 
A3.1; 17.6-7,14 
14.2 

10.17; 14.21; 15.16, 
16.2-3 

2.4; 14.20; A3.2 
14.20-21; 15.10 
2.4; 14.10-12,14-15,23 
25 

A3.2 

10.16; 14.21 
A3.2 

2.5; 22.32,50 
6 .1,4-5,7 
6.4 
23.56 

18.39,41-42; 21.3-4, 
10-11 
18.39-40 
18.39 
13.9 
6.8 
23.20 
6.12 
18.38 

23.50-51,55 
9.2,4,8,11-15,23 
Al.8 
3.1-11 


23 

.49 





21 

.2 





10 

.4 





21 

.8 





2 

.8; 

12.2; 15. 

1 ; 

20 

.5 

23, 

.13 

, 16,33,45, 

63 



18, 

.9 





14. 

,34 

-35; 18.9, 

11 , 

14, 

,29, 


31 

-32 




2 . 

6 ; 

8.6-7 




2 . 

,6; 

8.7 





23.28 

7.3; 14.33; 18.9 

9.14.37.40.42 

9.42 
Al.14 

9.49 

6.4-5 

5.9; 8.7-8; 14.27, 
22.43,55 
13.7 
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DIR (prog. asst. command) . 

DIRECTORY FULL (error message) . 

disabling a CLISP operator . 

DISMISS(N] . 

DMPHASH[L] NL* . 

DO (clisp iterative Statement operator) .. 

DO (edit command) . 

DO (prog. asst. command) . 

DONELST (printstructure variable/parameter) 

dot notation .... 

DOTHESE (transor command) . 

DOTHIS (transor command) . 

dotted pair . 

DREMOVE[X;L] .. 

DREVERSE[L] . 

DSUB5T[X;Y;Z] .. 

DUMP (transorset command) . 

DUNPACKf X;SCRATCHLIST;FLG] . 

DW (edit command) . 

DW (error message) . 

DWIMtX] ... 

DWIM .. ......... 


DWIM interaction with user . 

DWIM variables . 

DWIMFLG (dwim variable/parameter) 
DWIMFLG (system variable/parameter) 
DWIMIFY[X;L] . 


DWIMIFYCOMPFLG (clisp variable/parameter) 
DWIMIFYCOMPFLG (Compiler variable/parameter) 

DW1MIFYFNS[FNS] NL* . 

DWIMUSERFN (dwim variable/parameter) . 

DWIMWAIT (dwim variable/parameter) . 

E[XEEEE] NL* . 

E (edit command) . 

E (in an asscmble Statement) . 

E (prettydef command) .. 

E (in a floating point number) .. 

E (use in comments) . 

(E x T) (edit command) ... 

(E x) (edit command) ... 

EACHTIME (clisp iterative Statement operator) 

EDIT (break command) .. 

EDIT (transorset command) . 

EDIT (typed by editor) . 

edit chain . 

edit commands that search . 

odit commands that test . 

edit macros ..... 

EDIT-SAVE (property name) . 

EDIT4E[ PAT;X;CHANGEFLG] .. 

EDITA[EDITARRYjCOMS] .. 

EDITCOMSA (editor variable/parameter) .. 

EDITCOMSL (editor variable/parameter) ...... 

EDITDEFAULT .. 

EDITDEFAULT (in editor) .. 


22.34 

16.9 

23.61 

21.3 
7.6 

23.19 

22.31.61 
22.31 
20.8 

2.1 
Al.15 
Al. 15 
5.1 
6.4 
6.4 
6.5,7 
Al.11 

10.3 


9.77; 23.76 

17.23 

17.5.23 

2.6; 14.44; 16.1, 
21.23; 22.23; 17.1-28 
17.5 
17.19 

17.5,12,27 

9.80,85-86 

14.46; 17.23; 23.61-64, 
72-74; 20.5 

23.63.73 
18.8 

23.62.73 
17.16-19 
22.39; 17.6,8 

8.9 


9.9,62; 22.62 
18.38 
14.34 


3.6; 14.11 
14.40 
9.62 
9.62 

23.25-26 
15.8,11-13 
Al.11 
9.83 

9.4,7,11-13,15,23 

9.21-33 

9.64 

9.67-70 

9.72 

9.88 

21.8-17 

9.80,82; 17.16,18 

9.80- 82; 17.17-18 
22.61; 17.5 

9.80- 83 
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EDITE[EXPR;COMS;ATM] . 

EDITF[ X] NL* .. 

EOITFINDPtX;PAT;FLG] . 

EDITFNS[X] NL* . 

EDITFPAT[PAT;FLG] .” 

EDITMISIORY (editor variable/paramoter) ... 

oditing arrays .. 

oditing compiled code . 

oditing compiled Functions .... 

EDITL[L;COMS;ATM;HESS] . 

ED1TL0[L;COMS;MESS;EDITLFLG] . 

EDITPtX] NL* .. 

EDITQUIETFLG (editor variable/paramoter) .. 

EOITRACEFN . 

ED1TUSERFN ... 

EOITVLEDITVX] NL* . 

elomont patterns (in pattern match Compiler) 

E L T [ A; N ] RU BR . 

ELTD[A; N ] SUBR . 

(EMBED @ JN . ..) (edit command) . 

END OF FILE (error message) .. 

end-of-line . 

ENDFILE[Y] . 

ENTRIES (Compiler variable/parameter) . 

ontrics (to a block) . 

EN1RY#[HIST;X] .... 

EQ[X;Y] SUBR . 

eq .. 

EQPr X ; Y] SUBR ..” 

EQUAL[ X;Y] .. 

oqual . 

FRÄSE (transorset command) . 

ERRORfMFSS 1 ;MESS2;NOBREAKJ . 

ERROR (error message) . 

ERROR (property name) . 

error correction ... 

error handling 

error numbcr ... 

error types ... 

ERROR! [] .SUBR .] 


ERRORMESS[ U] . 

ERRORN[ ] SUBR .. 

errors (in editor) . 

errors in iterative Statements 
ERRORSEI [ (J; V] SUBR . 


LRROR1YPELST (system variable/paramoter) 

ERRORX[FRXM] . 

ERSE1QCIRSETX] NL . 

ERSTRfERN;ERRFLG] . 

ESCAPE(FLG] SUBR . 

escope character ... 

ESUBSTf. X; Y; Z ;ERRORFLG;CHARFLG] __ ... 

EVAL[X] SUBR . 

EVAL (break command) . 

eval Format .. 


9.1,83,86-87 

9.1.84- 86; 14.44 
9.89 

9.87-88 
. 9.89 

22.44,49,60-62 
21.8-17 
21.8-17 
9.90; 15.23 
9.83-84 
9.84 

9.1,85,87 

9.22 

9.90-91 

9.80 

9.1.85- 86; 14.44 
23.39-40 

3.8; 10.13; 16.10 
3.8; 10.14 
9.48 

14.6,10; 16.9 
3.2; 14.6,10,13,18 
14.38 
18.29 
18.18,27 


22.54 



2.3; 

5.11 


2.3; 

21.24 


3.5; 

5.12; 

13.2,4,6 

2.3; 
2.3 
Al .11 

5.12; 

13.2 


16.6,9-10,12 

16.9 

22.24,45 

17.1- 28 

16.1- 14 
16.7 
16.7 

5.9; 6.5; 15.7, 

16.12- 13 
16.7,13 
16.7,13 

9.3 
23.27 

5.9; 7.7; 16.5-6,12-14, 
17.15 
16.10-11 
16.12 

5.8; 16.14; 18.16 
21.22 

14.13- 14 

2.6; 3.2; 14.10 
6.5,7; 9.89; 22.14 
2.4,6; 4.2; 8.9; 16.14 
15.7,14,16,20; 16.3-4 

2.4 
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cval-blip . 

EVALAf X ;A] SUBR . 

EVALQT[CMAR] . ... 

EVALQT ... . 

EVALvt var ; pos ] .! 

event address . 

event mimber . 

event specification . 

EVERYf EVERYX;EVERYFN1 ;EVERYiFN2] .] ‘ ' 

evocx] ...; 

(EXAM . x) (edit command) . 

EXEC (prog. asst. command) . 

EXEC . 

EXIT (transorset command) .. 

EXPR (function type) .’ 

EXPR (proporty name) . !.!!!.. 

EXPR* (function type) .. 

EXPRFLG (printstructure variable/parameter) 

EXPRP(FN] SUBR ... 

exj>rs . 

expt[m;n] .. !!!!!!!!!!!!!!! ‘.Z !!.*.*.*.* 

(EXTRACT (?1 from . @2) (edit command) .... 
F (edit command) .. 

F (response to Compiler question) !!!!!..! 

F (in event address) . 

F pattern (edit command) . 

(F pattern N) (edit command) . 

(F pattern n) (n a number, edit command) 

(F pattern T) (edit command) ... 

(F pattern) (edit command) . 

f/l .;.;;; 

(F= -..) (edit command) 
false . 

fassocc x; y] .! 

FAST (makefile Option) .. 

fast Symbolic dump .... 

FASTCALL (in an assemble Statement) 

FASTYPEFLG (dwim variable/parameter) . 

FAULT IN EVAL (error message) . 

FAULTAPPLY[FAULTFN;FAULTARGS] ... 

FAULTEVALT FAULTX] NL* ’ !. 

FCMARACTER[N] SUBR . 

FETCM (use in records ln clispj 

FEXPR (function type) . 

FEXPR* (function type) .. 

FGETDf X] . ....... 

fgtp[x;y] subr . !!!!!!!!!!!!!!!!!!! 

FILDIR[FILEGROUP;FORMATFLG] .!.*.*.!!.!] 

FILE (edita command/parameter) . 

FILE (proporty name) . . 

FILE INCOMPATIBLE - SYSIN (error message) 

file names . 

FILE NOT COMPATIBLE (error "message) ‘! 

FILE NOT FOUND (error message) . 

FILE NOT OPEN (error message) . 


12.4; 16.5 
8.10; 16.10 
15.5 
2.4 
12.10 
22.12-13 

22.8,12,21,33,54 

22.11-14,19-21 

5.13 

18.19 

9.66 

21.21; 22.34 
21.21,24 
Al.12 
4.3; 8.4-8 

9.85,88; 14.27; 18.7, 
21; 17.17-18; 20.7 
4.3; 8.4-5 
20.6,9 
8.1,3-6 
4.1 

13.8 
9.46 

9.6,25-26 

18.2.4 
22.12 

9.25 

9.26 
9.26 

9.26 

9.27 
17.17 

9.27 
. 5.4 

2.3; 5.15 
14.46 
14.40 
18.38 
17.23 

16.9 

16.2; 18.25; 17.5,14-15, 
19 

16.1,9; 17.5,14-15,19 

10.4 
23.57 

4.3; 8.4-5 
4.3; 8.4-5 
8.3 
13.6 
21.21 
21.13 
14.44-45 
16.9 

14.2- 3 
14.26 

14.3; 16.9 

14.3- 4,8; 16.8 
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filo package .. 

filo pointer . 

FILE WON' T OPEN (error message) . 

FILE: (Compiler question) . 

FILECREATED . 

FILEDATE (property name) . 

FILEDEF (property name) ... 

fileFNS . 

FIIEFNSLST[FILE] .| 

FILEGROUP (property name) .. 

FILELST (file package variable/parameter) . 
FILEPKGFLG (file package variable/parameter) 

FIl EPOS[X;FILE;START;END;SKIP;TAIL] . 

files . 

FIT ES?[ ] . 

FILETYPE (property name) . 

fileVARS . 

FINALLY (clisp iterative Statement operator) 
FIRST (clisp iterative Statement operator) 

FIRST (as argument to advise) . 

FIRSTCOL (prettydef variable/parameter) ... 

FIRSTENf FN ] . 

FIRSTNAME (system variable/parameter) . 

FIX(X] . 

FIX (prog. asst. command) . 

fixed number of arguments .. 

FIXP[X] . 

FIXSPELL.[ XWORD;REL;SPLST;FLG; TAIL;FN;CLST; * * 

APPROVALFLG] . 

FLAST[X] . 

FLENGTI1[ X] .. 

FLOATIX] .” 

Floating point arithmotic . 

floating point numbers ... 


FLOATPf X] SURR . 

FLTFMT[N] SU13R . 

FMEMIIt X; Y J . 

FMINUSfX] . 

FN (transorset command) . 

(fn - NO FJREAK INFORMATION SAVED) . 

(Tnl IN fn?) . 

(frtl NOT FOUND IN fn2) . 

fnl-IN-fnZ . 

FNCHECKr FN;NOMESSFLG;SPELLFLG;PROPFLG] 

FNS (prettydef command) . 

FNTHf X ; N ] .. 

FNTYP[X] . 

FOR (clisp iterative Statement operator) 
FOR (in INSERT command) (in editor) ... 

FOR (in USE command) ... 

FORGET (prog. asst. command) . 

fork handle . 

forks ... 

form-feed . 

format and use of history list . 

FPLUS[X1;X2;...;Xn] SUBR* . 


14.44- 51 

14.5- 7 
14.2; 16.8 

18.3 

14.37.44 
14.37,46 
17.17-18 

14.44.49 

14.49 
14.47 

14.44- 50; 17.28 

14.44 

14.7 

2.9; 14.1-10 
14.45,48,51 
14.46; 23.60,63 

14.44.49 
23.25-26 

23.25- 26 

19.5.7 
14.39 
20.4,9 
21.24 

13.4 

22.16-17,22 

4.1 

13.4 

17.25- 26,28 
2.3; 6.7 
2.3; 6.8 

13.7 

13.6- 7 

3.1,4,6,11; 13.1-2,4, 
10; 14.11 
13.7 

3.6; 14.22 
2.3; 5.14 
13.6 
Al.10 
15.23 

15.17,22; 19.5 

15.17 

15.17,22; 19.5 
17.27 
14.34 
2.3; 6.8 
4.3; 8.1,3-7 
23.20-21 
9.41 
22.14 
22.27,54 
21.20 

21.17 
14.13 
22.44-47 
13.6 
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FQUOTIENTfX;Y] SUBR . 

free variables . 

free variables and compiled functions 

f ree-list ... 

FREEVARS[FN;EXPRFLG] .!!!!!!!!.’!*"* 

FREMAINDER[X;Y] SUBR . 

FROM (clisp iterative Statement operator) 

FROM (in event specifleation) . 

FROM (in EXTRACT command) (in editor) 

FRf>LACA[X;Y] SUBR . 

FRPLACD[X; Y] SUBR . . 

(FS ...) (edit command) ... 

FSTKARG[N;POS] SUBR . 

FSTKNTHfN;POS] SUBR . 

FSUBR (function type) .. 

FSUBR* (function type) .. 

FTIMES[X1;X2;...;Xn] SUBR* . 

FUNARG .... 

FUNARG (function type) . 

FUNCTION[EXP;VLIST] NL . 

function definition and evaluation . 

function definition cell . 

function objects .. 

function types . 

functional arguments . 

FUNNYATOMLST (clisp variable/parameter) 

garbage collection . 

GC: (typed by system) . 

GC: 1 (typed by System) . 

GC: 16 (typed by system) . 

GC: 10 (typed by system) . 

GC: 8 (typed by system) . 

GCGAG[MESSAGE] SUBR . 

GCTRPI N] SUBR .... ] ‘ ] 

generalized NTH command (in editor) . 

GENNUM (system variable/parameter) . 

GENSYMtCHAR] .. 

get[ x; y] ’!!."”!!!!!!!!!.!!!!!!!!”!!!!‘ii 
GE T AB[ 1 AB I E NAME ; INDEX;FORMATFLG]" ” 

GE I BLK[N] SUBR . 

GE I BRK[ ] SUBR ... 

GE 1 D[ X J SUBR ..... 

GElHASlir 1 IEM;ARRAY] SUBR . 

GETLIS[X;PROPS] . 

GE I Pf ATM;PROP] . 

GETSEPRt ] SUBR . 

GLC[ X ] SUBR ...' 

global variables ... 

GLOBALVARS (Compiler variable/parameter) 
GEOBALVARS (system variable/parameter) 

GNCfX] SUBR . 

G0[ X ] FSUBR* ... 

GO (break command) ... 

GO (use in Iterative Statement ln clisp) 


13.6 

12.2.5 

12.5 
3.12-13 

20.10 

13.6 

23.22-24 

22.13 

9.46 

5.3 

5.3 

9.27 

12.8 

12.7 

4.3; 8.4-6 
4.3; 8.4-6 
13.6 

11.1- 2,5-7; 12.11-12, 
16.10; 18.16 

8.5 

11.1- 2,5,7; 18.16 
8.1-12 

2.3,6; 3.3; 8.1-2, 
16.1; 18.21 
11 .6; 16.1 
4.1-3 

2.3; 8.10; 11.1; 18.16 
23.,60,75 

2.4; 3.11-14; 10.13-18 
10.15 

10.13; 16.9 

13.1 

13.1 

10.14; 21.4 
5.10; 10.15 
10.17; 21.4 
9.32,52,60 
10.5 

3.2; 10.4-5; 15.16, 
18.16; 19.4,6 

7.2 
21.22 

16.10; 21.17-18 
14.14 

2.3,6; 8.1-3,7 
7.6; 23.31 

7.3 
7.3 

14.13 

10.7.12 
5.9; 18.6-7 

18.6,29,48,51 

14.27,38 

10 . 6.12 

5.7 

15.6-7,15-16; 16.3-4 
23.26 
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GREATERPf X;Y] SUBR . 

GREET[NAME;FLG] . 

grecting and user initialization . !!!!!!!!! 

GROUP (property name) . 

GTJPN[FILE ;EXT;V;FLAGS] . 

HARRAY[LEN] . 

hash arrays . 

hash link functions ... *,.[ 

hash links . , 

hash overflow . ]]’]*_*** 

HASH TABLE FULL (error message) .. 

hash-addross . 

hash-array . . 

hash-itcm . 

hash -1 ink . .*].!!! 

hash-value . !!!!!!!!!!!!! 

HASHRECORD (record package) .. 

HCl P[MESS1 ;MESS2] . 

HELP! (typed by System) . 

HLLPCLOCK (system variable/parameter) . 

HEI.PDEPTH (system variable/parameter) . 

HCLPF LAG (system variable/parameter) . 

HEL PT IMF (system variable/parameter) . 

HERE (in edit command) ... 

HISTORY (property name) . 

history commands ... 

history commands applied to history commands ...! 

history commands that fail . 

history list .... [ * 

HISTORYCOMS (editor variable/parameter) . 

HISTORYFIND . 

HISTOR YSAVE[ HISTORY; 10; INPlÜi ; INPUT2 ; INPUT3 ;PR0PS] 

(I c xl ... xn) (edit command) . 

i . s . type .. 

I .S . TYPL[ NAME;F0RM; INITIAL] 

ID1FFERENCC[X;Y] . 

(IF x comsl coms 2 ) (edit command) . 

(IF x comsl) (edit command) ... 

(IF x) (edit command) . 

IF-THEN-EISE Statements ... 

IFPROP (prettydef command) .. 

IGREATERPIX;Y] SUBR . 

ILISSP[X;Y] .. 

ILLEGAL ARG (error message) .. 

I LI EGAL ARG - PUTO (error message) .. 

ILLEGAL EXPONENTIATION: (error message) . 

(ILLEGAL GO) (Compiler error message) . 

ILLEGAL OR IMPOSSIBLE BLOCK (error message) . 

ILI EGAL RLTURN (error message) . 

(ILLEGAL RETURN) (Compiler error message) . 

IU EGAL SIACK ARG (error message) . 

IMINUSfX] . 

implementation of REDO, USE, and FIX 
Implementation of structure modification commands 

( in editor) .... 

implicit progn .* 

IN (clisp iterative Statement operator) . 


13.8 
22.64 

22.64 

22.45- 46,52 

14.9 
7.5 
3.1 
7.5-6 

7.4- 6 
7.7 

7.7; 16.10 
7.4 

7.4- 5,7 

7.4- 6 
7.4-6 
7.4-6 

23.53 
16.13 
16.13 

16.6; 22.21,38 
16.5-6 
16.3-4,7 
16.5-6 
9.42 

22.45- 46 
22.10-27 

22.19 

22.20 

9.73,78; 22.6-14,44 
22.61 

22.53 

22.11,44-46,52,61 

9.62 

23.20 

23.28-29 

13.3 

9.65 

9.65 

9.64 
23.17 
14.35-36 

13.3 

13.4 


6.4; 16.10 
8.4; 16.8 


13 

.8 


18 

.51 


16 

.10; 

; 21. 

5 

• 7; 

16.8 

18 

.51 


12 

• 6; 

16.9 

13 

.3 


22 

.17- 

•19 


9.37-39 

4.4 

23.21-23,27 
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IN (typcd by System) . . 

IN (in I'MBED command) (in editor) .... 

IN (in USE command) .. 

IN? (break command) .. 

INCORRECT DEFINING FORM (error message) 

incorrect number of argumerits . 

indefinite number of argumonts . 

INFILE[FILE] SUBR .. 

INFILEPtFILE] SUBR . 

infix operators (in clisp) . 

INPUT[FILE] SUBR . 

input buffer .... „.. 


input Functions ... 

input/output . 

input/output control functions ..*!!! 

(INSERT ... AFTER . @) (edit command) . 

(INSERT ... BEFORE . @) (edit command) . 

(INSERT ... FOR . @) (edit command) . 

INSTRUCTIONS (in Compiler) .. 

integer arithmetic . 

integers . 

interfork communication . 

interpreter .... . 

INTERRUPT INTFN; INTARGS; INTYPE] 

INTERRUPTEO BEFORE (typed by System) . 

INTERSCOPE .. 

INTERSECTION[ X; Y ] ’ 

IOFXLE[FILE] SUBR .| 

IPLUS[XI ; X2 ;. . . ; Xn ] SUBR* . 

IQUOTIENT[X;Y] SUBR . 

IRENAINDER[X;Y] SUBR .” 

15 A COMPILED FILE AND CANNOT BE DUMPED, 

(error message) . 

(IS GLOBAL) (Compiler error message) . 

IS NOT DEriNED (typed by PRINTSTRUCTURE) ... 

ITERATE (tise in iterative Statement ln clisp) 

iterative Statements (in clisp) . 

ITIMEStXl;X2;...;Xn] SUBR* . 

JFN ... 

viFNsc jfn;ac3] ... !!!!!!!!!!!!!!!!! 

JOIN (clisp iterative Statement oporator) 

OOINC (edit command) .. 

JSYS . 

KFORKT FORK] .. 

KWOTEfX] . 

L-CASE[ X;ELG] .. 

LAMBDA ....* 

LAHBDACOMS (t.ransor command) ... 

LAMS (Compiler variable/parameter) . 

LAP .... 

LAP macros ..... , ' 

LAP op-de r s .... 

LAP Statements .... 

LAPFLG (Compiler variable/parameter) . 

LAPRD[FN] .. 
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16.4 

9.48 

22.14 

15.8,13; 16.1 
8.7 

4.3 
4.2 

14.2,6 

14.3-4 

23.10- 13 
5.10; 14.1 

10.16; 14.16,20-21, 
23-24; 15.16; 16.2, 
7 

14.10- 18 

14.1- 51 
14.21-25 

9.41 

9.41 

9.41 

18.15 

13.2- 5 

3.4 
21.17 

8.9; 16.1 
10.17; 16.2 
16.2 

20 . 11 - 20 
6.9 

14.6-7 

13.3 

13.3 

13.3 

14.47 

18.51 

20.5 

23.26 

23.18-30 

13.3 

14.8- 10 
14.9 
23.19 

9.76 

14.8- 10,22; 21.22 
21 . 20-21 

5.3 

9.74; 14.43 
4.1-2,4; 8.3,5,8 
Al.17 

18.5,9,11,31-32 

18.3,34,40 

18.36,43 

18.35-36 

18.40-44 

18.3 
18.25 
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largo integers 


l.AST[X] . 

LAST (ns nrgument to advise) .. 

LAST-PR1NTSTRUCTURE 

(printstructure variable/parametor) 
LASTAIL (editor variable/parameter) ... 

LASTC[ FIl.L ] SUBR . 

LASTFN[FN] . 

LASTN[L;N] .. 

LASTPOS (break variable/parameter) .... 

LASTVAI.UE (property name) .. 

LASTWORD (dwim variable/parameter) .... 
LASTWORD (systcm variable/parameter) 

( LC . (?) (edit command) ... 

LCASEFLG (System variable/parameter) 
LCASELST (prettydef variable/parameter) 
LCFIL (Compiler variable/parameter) ... 

(LCL . (?) (edit command) . 

LCONC[PTR;X] . 

LD1FF[X;Y;Z] .. 

LD1FF: NOT A TAIL (error message) . 

LENGTHtX] .. 

LESSP[X; Y ] .. 

(LI n) (edit command) . 

LINBUFf FLG] SUBR . 

1 ine buffcr ... 

line-buffering .... 

line-feod ... 

line-feed (edita command/parameter) ... 

LINELENGTU[N] SUBR .. 


linked Function calls ... 

LINKEDFNS (system variable/parameter) . 

LINKFNS (Compiler variable/parameter) . 

LISP (prog. asst. command) . 

LISPFN (property name) . 

LISPXt LISPXX;LISPXID;LISPXXMACROS;LISPXXUSERFN; 

LISPXFLG] ... 


LISPX/[X;FN;VARS] . 

LISPXCOMS (prog. asst. variable/parameter) . 

LISPXFV/AL[ LISPXFORM; LISPXID] . 

LISPXFINDf HISTORY;LINE;TYPE; BACKUP;QUIETFLG] 

LISPXIIIST (prog. asst. variable/parametor) . 

LISPXIIISTORY (prog. asst. variable/parameter) ... 

LISPXIIISTORY (system variable/parameter) . 

LISPXIINE (prog. asst. variable/paramoter) . 

LISPXMACROS . 

LISPXMACROS (prog. asst. variable/paramoter) .... 

LISPXI’RINT (property name) .. 

LISPXPRINT[X;Y;Z;NODOFLG] . 

LISPXPRINTFLG (system variable/parameter) . 

LISPXREAD[FILE] . 
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3.1,5,11; 5.12, 
13.1-2,10 
6.7 

19.5,7 


20.6.8- 9 
9.16-17,25,84 

14.15 

20.4,9 

6.7 

15.8- 10,12 
9.72 

17.13,24-25,27; 23.13 
9.85-86 
9.30 
21.23 
14.43 
18.3,5 
9.30 
6.3 
6.9 
6.9 

6.8 

13.8 

9.8,53 

14.21 


14.21,23 

2.5; 14.11-12,14-16,23 
3.2; 14.10,13,18 
21.13 

2.3; 3.8; 5.10; 14.22, 
39 


18.21-26 


18.25 


18.24,29-30 
21.21; 22.34 
23.70 


9.62,73; 22.10-11, 
15-16,19-20,29, 
34-35,37-38,40-41, 
44-49,52,61-62, 
17.5,12-13,28 
22.40,58 
22.38 
22.52 

22.53.62 

22.45-46,56,59-60 

22.44,49,60-61 

22.62 
22.34 
21.21 
22.34,49 

22.38.45 

22.37.45 
22.38 

22.10,19,29,32,47-48,50, 

61 
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LISPXREADFN (prog. asst. variable/paramoter) .... 14.16; 22.50 

LISPXREADPf FLG] 22.50,61 

LISPXSTATS[FLG] . 22.63-64 

LISPXUNREAD[LST] . 22.51 

LISPXUSERFN (prog. asst. variable/paramoter) _ 22.35,37,47,49 

LISPXWATCH[STAT;N] 22.63 

LIST[XI;X2;...;Xn] SUBR* . 3.7; 6.1 

LIST (property name) . 8.7 

LIST (makefile Option) . 14.47 

list manipulation and concatenation . 6.1-12 

list nodos . 3.8 11 

LISTFILES[FILES] NL* . 14.45,47 

LISTING? (Compiler question) ... 18.2-3 

LISTPtX] SUBR .. 2.3; 5.11 

listp checks (in pattern match Compiler) . 23.38 

üsts . 2.3; 3.1,7; 5.11 

LISTS FULL (error message) . 16.10 

LITATOM[X] SUBR . 5.11 

literal atoms . 3.2-3; 5.11; 10.11, 

. 14.11 

LITS (odita command/parameter) . 21.13 

LLSH[N;M] SUBR ... 13.5 

(LO n) (edit command) . 9.8,53 

LOAD[FILE ;LDFLG;PRINTFLG] . 2.9; 14.27,44; 18.8 

LOADAV[ ] . 212 2 

LOADFNS[FNS;FILE;LDFLG] . 14.27-28 

LOC[X] SUBR . 13.13-14 

local rccord declarations (in clisp) . 23.35 

local variables ... 5.6 

LOCALFREEVARS (Compiler variable/parameter) . 18.19-20,29 

locally bound variables . 12.6 

location specification (in editor) . 9.28-29,64 

LOCATION UNCERTAIN (typed by editor) . 9.17 

LOGCX] ... 13.8 

LOGAND[Xl;X2;...;Xn] SUBR* . 13.5 

LOGOR[XI;X2;...;Xn] SUBR* . 13.5 

LOGOUTf] SUBR . 2.4; 21.4-5,21 

LOGXOR[XI;X2;...;Xn] SUBR* . 13.5 

LOOKATtX] . 20.13,17 

LOWER (edit command) . 9.74 

lower case .. 14.43; 21.23 

lower case commonts .. 14.40-43 

(LOWER x) (edit command) .. 9.75 

LOWERCASEfFLG] . 21.23; 23.76 

(LP . coms) (edit command) . 9.65-66 

(LPQ . coms) (edit command) . 9.66 

LRSII[N;M] . 13 5 

LSH[N;M] SUBR . 13.5 

LS TEIL (Compiler variable/parameter) . 18.3 

LSUBST[X;Y;Z] . 6.5,7 

(M (c) (argl ... argn) . coms) (edit command) ... 9.68 

(M (c) arg . coms) . 9.68 

(M c . coms) (edit command) ... 9.67 

machine instructions . 18.1,40-41; 21.10 

MACRO (property name) . 18.13-14 

macros (in editor) . 9.67-70 

macros (in Compiler) . 18.14-16 
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MAKEBITTABLE[ L;NEG;A] 
MAKEFILE[IILE;OPTIONS] 


makcfile and clisp .. 

MAKEFILES[ OPTIONS ;FILES] . 

MAkEsys [file ] expr . 

MAKESYSDATE (system variable/parameter) 

MAKEUSERNAMES . . 

MAP[ MAPX;MAPFN1 ;MAPFN2 ] ''. 

MAP2C[MAPX;MAPY;MAPFN1 ;MAPFN2 1 ‘ '.[‘.W’' ' ' ' ' ' " 
MAP2CAR[MAPX;MAPY;MAPFN1;MAPFN2] . 

MAPATOMS[FN] SUBR .... ........... 

MAPC[ MAPX;MAPFN1;MAPFN2] .1111111 ’ *.“ ' ‘ ’ 

MAPCARfMAPX;MAPFN1;MAPFN2] . 

MAPCON1 MAPX;MAPFN1 ;MAPFN2 ] . 

MAPCONCf MAPX;MAPFN1;MAPFN2] _^. 

MAPPLl MAPDLFN;MAPDLPOS] .. 

MAPHASIII ARRAYjMAPHFN] .. 

MAPLIST[MAPX;MAPFN1;MAPFN2] j!!!!* 

MAPRINT[LST;FILE ; LEFT;RIGHT;SEP;PFN;LSPXPRNTFLGTL [ 

margins (for prettyprint) .. 

MARK (edit command) ..^ * 

(MARK atom) (edit command) .* .’ ’ ] 

MARKEST (editor variable/parameter) _ 

MASK (edita command/parameter) .. 

MATCH (use in pattern match in clisp) **..!!!!!!!!! 

MAXLEVEL (editor variable/parameter) . 

MAXLOOP (editor variable/parameter) .*’ 

MAXLOOP EXCEEDED (typed by editor) .. 

(MRI) el ... em) (edit command) . 

MEMBf X;Y] . . 

member[ x; y] .!!!!!.*!.’!!”!. 

MLRGLI A;13 ;COMPAREFN] ’.'!!.’!!]!.. 

MINI S[N;TYP] SUBR . 

MINUS[X] SUBR . . 

minuspcx] subr . 

MISSING OPERAND (dwim error message) . 

MISS1NG OPERATOR (dwim error message) ... 

M1SSPELI ED?[ XWORD ;REL ;SPLST ;FLG ;TAIL;FN] 
mixed arithmctic .. 


MKATOML X ] SUBR ... . . ' " ........ . 

MKSTRINGCX] SUBR . .. . 

MOPEL33FLG (dwim variable/parameterj ......... 

MODLL33FLG (system variable/parameter) ... 

MOVIlf I ROM;TO;COPYFLG] ." 

(MOVE 0i 10 com . @2) (edit command) ! 

5L 1 ! T IPL Y DEFINED TAG) (Compiler error message) 
(MULI If>LY DEFINED TAG, ASSEMÖLE) 

(Compiler error message) 

(MLILTIPLY DEFINED TAG, LAP) 

(Compiler error message) . 

n (n a number, edit command) . !!!.!."!! 

(N el ... em) (edit command) . 

(n el ... em) (n a number, edit command) 

(n) (n a number, edit command) . 

NAME (prog. asst. command) . 

NAMES RESTORED (typed by system) .’ 


10.10 

14.45-48; 18.10,32, 

17.28 
23.33,75 
14.45,47-48,51 

3.15 

3.15 

22.65 

11.2 

11.4 

11.4 

10.5 
11.3 
11.3 
11.3 
11.3 
12.11 

7.6 

11.3 

11.5 
14.38 

9.34 

9.34 

9.34,84 

21.15 

23.37 

9.24.28 
9.66 
9.66 

9.47 
5.14 

‘ 5.14 
6.11 

3.13-14; 10.16 
13.7 
13.4,6 
23.64 
23.64 

17.24,27-28 

13.7-8 

3.2,5-6; 10,7 
3.10-11; 10.5,11 
17.21; 23.76 

21.23 
8.4 

9.48 
18.50 

18.50 

18.50 

9.3,17 

9.36 

9.5.36 
9.5,36 

22.14,22,25-26 

15.24 
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NAMESCHANGED (property name) ... 15.17 

NARGS[X] . 8.1,3-4,6 

NCHARStX] SUBR . 10.3; 14.6 

NCONC[XI;X2;...;Xn] SUBR* . 6.2-3 

NC0NC1[L5T;X] . 6.2-3 

NEQ[ X; Y] . 5.12 

NEVER (clisp iterative Statement operator) . 23.20 

NEW/FN[FN] . 22.57 

NEWFILE2[NAME ;COMS;TYPE;UPDATEFLG] . 14.49-50 

NEWFILE?[NAME;VARSFLG] ... 9.86 

NEX (edit command) .. 9.32 

(NEX x) (edit command) . 9.32 

NIL (edit command) . 9.64,70 

NIL (use in block declarations) . 18.30 

NIL: . 20.6 

NLAM (transor command) . Al. 15 

NLAMA (Compiler variable/parameter) .. 18.5,9,11,31-32 

NLAMBDA . 4.1-2,4; 8.3,5 

NLAML (Compiler variable/parameter) . 18.5,9,11,31-32 

NLEFT[L;N;TAIL] . 6.7 

NLISTf'tX] . 2.2; 5.11 

NL1STPCOMS (transor command) .. Al. 16 

NLSETQ[NLSETX] NL . 5.8; 16.14; 18.16, 

.... 22.59 

(NO LONGER INTERPRETEDAS FUNCTiÖNALARGUMENT)'" 

(Compiler error message) . 18.49 

NO VALUE SAVED: (error message) . 22.56 

NOBIND . 2.3,8; 3.3; 5.9; 9.86, 

. 14.27; 16.1; 22.43,55 

NOBREAKS (break variable/parameter) . 15.20 

NOCLISP (mnkefile Option) . 14.46; 23.33,75 

NOFIXFNSLST (clisp variable/parameter) . 23.62-63,72 

NOFIXVARSIST (clisp variable/parameter) . 23.62-63,65,72 

■NOFNS (printstructure variable/parameter) . 20.3 

NOLINKFNS (Compiler variable/parameter) . 18.24-25,29-30 

(NON ATOMIC CAR OF FORM) (Compiler error message). 18.49 

NON-NUMERIC ARG (error message) .. 13.2,6-7; 16.4,8 

NONXMEM (error message) . 16.7 

NOSAVE . 22.56-57 

NOSPELLFLG (clisp variable/parameter) . 23.72 

nospread functions . 4.2; 8.1 

NOSUBSTFNS (prog. asst. variable/parameter) . 22.58 

NOT[ X] SUBR . 5.12 

NOT A FUNCTION (error message) . 8.8; 19.6 

NOT BLOCKFD (typed by editor) . 9.79 

(NOT BROKEN) . 15.22 

NOT CHANG!D, SO NOT UNSAVED (typed by editor) ... 9.85 

NOT COMPIIEABLL (Compiler error message) . 18.51 

(NOT COMP 1LEABLE) (Compiler error message) . 18.7,51 

(NOT DEFINED WIIEN LINK TRIEB FROM) 

(typed by System) . 18.24 

NOT EDI TABLE (error message) . 9.83,85 

NOT FOUND (Compiler error message) . 18.12,52 

(NOT FOUND) (typed by break) . 15.9 

(NOT FOUND) (typed by breakin) . 15.20-21 

(NOT FOUND) (value of unsavedef) . 8.8 

(NOT IN FILE - USING DEFINITION IN CORE) 

(Compiler error message) . 18.52 
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NOI ON BLKFNS (Compiler error messago) . 

(NOT PR IN FABLE) . 

NO I ANYf SOMEX; SOMEFN1 ;SOMEFN2 ] 

NOTCOMP1LIDFILES (file package variable/parameter) 

NOIE (transor command) . 

NOTE: I3RKEXP NOT CIIANGED. (typed by break) ””’"* 

NOTEVERY[f VERYX;EVERYFN1;EVERYFN2] . ..'. 

(NOTIIING rOUND) . ” 

NOTIIING SAVED (typed by editor) .... 

NOTMING SAVED (typed by System) .. 

NOI LISU: DFILES (file package variable/parameter)., 
NOTRACEFNS (printstructure var-iable/parameter) 

NP (in an assemble Statement) . 

NTH[X;N] . 

(N1H n) (n a number, edit command) . 

(NTH x) (edit command) . 

NTMCHAR[X;N] SUBR . 

NTYP[X] SUBR . 

NULLtx] subr .!!!!.’>»!!!!!!!!.'! 

nu 11 string .... * ” 

nuii-check . !!!!!!!!!!!” 

number stack ... 

NumberPC x] subr . 

numbers . 

NX (odit command) . 

(NX n) (n a number, edit command) . 

OCCURRENCES (typed by editor) . 

octal ... 

OK (break command) ..’ 

OK (odit command) . 

OK (cdita command/parameter) .. 

OK TO REEVALUATE (typed by dwim) .. 

OKREEVALST (dwim variable/parameter) .” 

OLD (clisp iterative Statement operator) . 

ON (clisp iterative Statement operator) . 

OPCODE (in a lap Statement) . 

(OPCODE? - ASSEMBLE) (Compiler error message) ... 

OPD (property name) .. 


open Functions . 

open macros . 

OPf NFL’FILE ; X] SUBR . 

opcning Files . 

OPENPCFILE;TYPE] SUBR . !!!!” 

OPFNRf A ] SUBR . 

OPNJFN[ FILE] SUBR . ]'.] 

OR[XI ;X2; . . . ;Xn] FSUBR* . 

order oF prccedence oF CLISP operators 

(ORF ...) (edit command) . 

ORG (edita command/parameter) . 

(ORR ...) (edit command) ... 

OUTFILEtFILE] SUBR .. 

OUTFILEPfFILE] SUBR . 

OUTPUTCFILE] SUBR . 

output buFfer .. 


18.20,27,52 
14.30 
5.14 

14.45- 46,48 
Al.12,14 
15.12 

5.14 

8.8 

9.78 

22.22,39 

14.45- 48 
20.4 
18.46 

6.8 

9.20 

9.32-33 

10.3 

10.14 

5.12 

10.6- 7 
2.2; 6.7-9 

12.2; 18.46 
5.11 

5.11; 13.1-14, 

14.11-12 

9.8,18-19 

9.19 

9.65 

3.5,8; 13.13; 14.11,18 

15.6- 7,12,14,16, 

16.3- 4 
9.71,76,83 

21.13 

17.9 

17.9 

23.8,21-22 
23.21,23 
18.41 
18.35,51 
18.35-36,41,43, 

21 . 10-11 

18.13-14 

18.15 
14.8 
14.1 

14.3- 5,8 
10.18 
14.8 

5.13 

23.15 
9.27 

21.12 

9.66 

14.2.6- 7 

14.3- 4 
5.10; 14.1 

14.20 
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OUTPUT FILE: (Compiler question) .. 18.2,5 

output Functions . 14.18-20 

overflow . 13.3,6 

P (cdit command) . 9.2,60 

P (prettydef command) .,. 14.34 

(P m n) (edit command) . 9.60 

(P m) (edit command) .. 9.60 

P-STACK OVERFLOW (error message) . 16.7 

P.P.E. (typed by PRINTSTRUCTURE) . 20.5,8 

PACK[X] SUBR . 3.2,5-6,11; 10.2 

PACKC[X] SUBR . 10.4 

page ... 3.11 

PAGEFAULTS[] . 21.4 

Parameter pushdown list . 12.2,8-9,11; 18.46 

pnronthcscs counting (by READ) . 14.11,23-24 

PARENTI1ESIS ERROR (error message) .5.3 

PATHS[X;Y;TYPE;MUST;AVOID;ONLY] . 20.14-15 

PATLISTPCHECK (ln pattern match Compiler) ....... 23.38 

(pattern .. @) (cdit command) . 9.33 

pattern match (in editor) . 9.21-23,88-89 

pattern match Compiler .. 23.36-48 

PATVARDEFAULT (in pattern match Compiler) . 23.39,42,45 

PD (prettydef command) .. 14.35 

PEEKCfFILE] SUBR .. 14.15,25 

placc-mnrkers (in pattern match Compiler) . 23.44 

PLUS[X1 ;X2;...;Xn] SUBR* . 13.7 

pname coli ... 3.3 

pnames .. 3.1-4,11; 10.1-4,11 

pointer . 3,1 

POSITION[riLE] SUBR ... 14.23 

PP[X] NL* . 14.29; 18.46 

PP (edit command) .. 9.2,60 

PP*[X] NL* .... 14.31 

PP* (edit command) .. 9.61 

PPT (edit command) ... 9.61; 23.31,75 

PPV (edit command) ... 9.61; 14.38 

PRDEPTH (printstructure variable/parameter) . 20.4 

precedcnce rules (for CLISP operators) . 23.10 

predicates ...... 2.3; 5.11 

prefix operators (in clisp) . 23.13 

PRE5CAN[FILE;CHARLST] .. Al.3 

PRETTYCOMSPLST (prettydef variable/parameter) ... 14.36 

PRETTYDEF[PRETTYFNS;PRETTYFILE;PRETTYCOMS; 

RECQMPILEFLG;CHANCIES] . 2.9; 5.9; 14.31-38,40 

. 44,46; 19.9 

prettydef commands ... 14.33-37 

PRETTYFLG (prettydef variable/parameter) . 14.39-40,46 

PRETTYLCOM (prettydef variable/parameter) . 14.39 

PRETTYMACROS (prettydef variable/parameter) . 14.36,40,49-50 

PRETTYPRINT[FNS; PRETTYDEFLG] ... 2.9; 14.29 

PRFTTYTRANFLG (clisp variable/parameter) . 14.46; 23.31-32,75 

PRETTYTYPE (property name) . 14.50 

PRETTYTYPELST (file package variable/parameter) . 14.45,50 

primary input file . 14.1-2,4,10 

primary output file .. 14.1,4,18 

PRIN1[X;FILE] SUBR .,. 3.2,8,10; 14.18-19 

PRIN2[X;FILE] SUBR . 3.2,8,10; 14.18-19 
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prin2-pnames . 

PRIN3[X;FILE] SUBR .... 

PRINT[X;FILE] SUBR . 

PRINT (property name) . 

print name .. 

PR INTDATEI FILE;CHANGES] .. 

PRINTDEFfIXPR;LEFT;DEF] .. 

PRINTFNStX] .. 

PRINTIIIS10RY[ H IS TORY; LINE;SKIPFN;NOVALUES] 

printing circular lists . 

printlcvel . 

PRINTLEVELIN] SUBR . 

PRINTSTRUCTURE[X;EXPRFLG;FILE] . 

private pages . 

PROG[ARGS;E1;E2;...;En] FSUBR* . 

PROG label . 

PROG 1[ XI ; X2 Xn ] SUBR .! 

PROGN[XI;X2;...;Xn] FSUBR* . 

programmer's assistant ... 

programmer's assistant and the editor ... 

programmer's assistant commands . 

prompt character ... 


PROMPT#!LG (prog. asst. variable/parametor) 

PROMPTCIIAR[ID;FLG;HISTJ . 

PROP[X;Y] ... 

PROP (prettydef command) 

PROP (typed by editor) ... 

proper tail ... 

property . 

property 1 ist .... 

property name 
property value 

PROPRECORD (record package) . 

PSTEP (in an assemble Statement) . 

PS1LPN (in an assemble Statement) . 

pushdown list . 

pushdown list functions . 

PUT[ATM;PROP;VAL] . 

PUTDf X;Y] SUBR . 

PUTDQIX;Y ] NL . 

PUTHASU(ITEM;VAL;ARRAY] SUBR . 

0 (folTowing a number) ... 


OUIT (tenex command) . 

QUOTE[ X ] NL* .. 

QUOTEFNS (printstructure variable/parameter) _ 

QUOTIENT[X;Y] SUBR . 

R (edit command) .. 

(R x y) (edit command) ... 

(RI x y) (edit command) .. 

RADIXtN] SUBR ... 


RAISE[FLG] EXPR . 

RAISE (edit command) . 

(RAISE X) (edit command) . 

RAISEFLG (System variable/parameter) 


10.1,3-4 

14.19 

3.2,8,10; 14.19 
22.45 
10.1 

14.29.37.44.46 
14.38-39 
14.37 

22.22,37-38,60 

21.24-29 

14.19-20 

2.3; 3.8; 5.10; 14.19 
20 . 1-10 

3.15 

5.6 

5.7 

5.6 

4.4; 5.6 
22.1-48 
22.61 
22.10-31 

2.4,6,8; 9.2; 15.4, 

22.10.33.51 

22.33.51 
22.33,51,61 

8.7 

14.33,36 

9.85 

5.15 
7.1 

2.3; 3.3; 7.1-3; 16.1 
7.1,3 

7.1.3 
23.53 

18.46 
18.46 

2.8; 4.2; 12.1-13 
12 . 6-11 
7.1-2 

2.3,6; 8.1-4 

8.4 

7.5 

3.5; 13.13; 14.11,18, 
22 

,14.48; 21.18-19,21 

5.3 
20.4 
13.7 

6.6 

9.7,57 

9.59 

2.3; 3.5; 5.10; 10.1, 

14.11.18.22 

21.22 

9.74 

9.75 
21.23 
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RAND[LOWER;UPPER] . 

random numbers . 

RANDSETIX] . . 

RANDSTATE .. 

RATEST[X] SUBR . 

RATOM[FILE] SUBR . 

RATOMS[A;FN] . 

RC (makefile Option) . 

(RC x y) (edit command) ... 

(RC1 x y) (edit command) . 

READ[FILE ;FLG] SUBR .. 

READBUF (prog. asst. variable/parameter) 

READCfFILE] SUBR . 

READFILEf FILE] . 

READLINE[ L. INE; LISPXFLG] . 

READP[FILE ] SUBR' *.*!!!!!!!!!!!!!!!!"!!! 

READVICE (property name) . 

READVISE[X] NL* . 

REBREAK[X] NL* ... 

RECLAIMfN) SUBR . 

RECOMPILE[PFILE ; CFILE;FNS;COREFLG] .... 


roconstruction (in pattern match Compiler) 

RECORD (record packago) .. 

record dcclarations (in clisp) . 

record package (in clisp) . 

RECORDS (prettydcf macro) . 

REDEFINE? (Compiler question) . 

RLDEFINED (typed by System) . 

(REDEFINED) (typed by System) . 

REDO (prog. asst. command) . 

REENTER (tenex command) .. 

REIIASH[OLDAR;NEWAR] SUBR . 

RELBLK[ADDRESS;N] SUBR . 

RELINK[FN;UNLINKFLG] . 

rolinking . 

rolocation Information (in arrays) ...... 

REHAINDCR[X;Y] SUBR . 

REMARK (transor command) . 

REMOVE[X;L] . 

REMPROPf ATM;PROP] .]. 

REPACK (edit command) . 

(REPACK @) (edit command) . 

REPLACE (use ln records in clisp) . 

(REPLACE 0 WITH ...) (edit command) . 

replaccments (in pattern match Compiler) 
REREADF1G (prog. asst. variable/parameter) 

RESETt] SUBR . 

RESETFORM[RESETX; RESETY;RESETZ] NL __ 

RESETVAR[RESETX;RESETY;RESETZ] NL . 

(RLSETVAR var form . coms) (edit command) 

restoring input buffers . 

RESULTS[ ] . 

RETEVAL[POS;FORM] SUBR .. 

RETFNS (Compiler variable/parameter) .... 
RETFROM[POS;VALUE] SUBR . 


13.9 

13.9 

13.10 

13.9- 10 
14.14 

14.11-13,25 

14.12 

14.46 
9.59 
9.59 

14.10- 11,24 

22.50- 51 
14.14,25 
14.28 

9.81; 14.16-17; 22.14, 
19,32,37,47-48,50,61 
14.16 
19.8-10 
14.34; 19.8-9 
15.16,22-23 
3.12-13; 10.14 
14.44,46,48; 18.7-8,10, 
30,33 

23.46 
23.52 
23.35,51 
23.48-58 

23.50- 51 
18.4 

8.7 
14.27 

22.14,17,22 
2.4,9; 5.10; 21.4,19 
7.6 

16.10; 21.18 

18.25-26 

18.25-26 

3.8 
13.7 
Al. 12 

6.4 

7.2 


9.75 

9.76 
23.57 

9.42 
23.45 
22.50,52 
16.13; 22.43,55 
5.10 


5.9; 9.77; 18.7 
9.77 
22.30 

12*foI 15.5; 17.15 
18.20,26,29 
12.10; 15.5; 16.6 
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RETRIEVE (prog. asst. command) 
RETRY (prog. asst. command) 

RETURN[X] SUBR . 

RETURN (break command) . 


RETURN (use in iterative Statement in clisp) ... 

REUSING (record package) . 

REVERSE[L] .. 

(RI n m) (edit command) . 

RL JFN[ DEN ] .... 

(RO n) (edit command) 

RPAQfRPAQX;RPAQY] NL . 

RPAQQ[X;Y] NL . 

RpiACAt x; y i suBR”!!!”!!!!!!!!!!!. 

RPl ACDf X;Y] SUBR . 

RPLSTRINGt X;N;Y] SUBR . .. 

RPT[ RPTN;RPTF ] . .. 

RPTO[ RPTN ;RPTF ] NL ..*!. 

RSHrN;M] .. . 

rsiringt ] subr . 

rubout ..... ^. 

RUN (tenex command) .... 

run-on spelling corrections .. 

running ot.her Subsystems from within INTERLISP .. 

S (response to Compiler question) . 

(S var . 0 ) (edit command) . 

SASSOC[XSAS;YSAS] .| 

SAVE (edit command) .... 

SAVE EXPRS? (Compiler question) .. 

SAVEDEE[X] . 

SAVESETf NAME ;VALUE ; TOPFLG;FLG] 

search algorithm (in editor) . 

searching files . 

searching strings .!!!!!! 

searching the pushdown list ... 

SEARCHING... (typed by breakin) .. 

SEARCII PULf SRCIIFN ;SRCHPOS ] . 

second pass (of the Compiler) .. 

segment patterns (in pattern match Compiler) .... 

SEI ECTQt X;Y1;Y2 ; . . .; Yn;Z] NL* . 

Separator characters . 

SE T( X;Y 1 SUBR .. . •*•* •••* 

SETA[A;N;V] ... . 

SETARG[VAR;M;X] FSUBR .!!!!.”. 

SETBRK[LSI;FLG] SUBR . 

SETD[A;N;V] .. !!!!]!!.’"*! 

SEIEN (property name) . 

SETNf VAR ; X ] NL . .* ’ 

SET0l.X;Y] FSUBR* .. 

SETQ (in an assemble Statement) . 

SETQQIXSETjYSET] NL . 

SETSEPR( LST ;FLG] SUBR . 

SFPTRtFILE ;ADDRESS] SUBR .. 

SHALL I LOAD (typed by dwim) ... 

shared pages ... 

shared System ... 


22.22,26,34 

22 . 21-22 

5.7 


2.9; 15.6-7,16; 16.1, 
4 

23.26 

23.56 

6.4 

9.0,53 

14.9 


9.8,53 

5.9; 14.27,32; 22.43 
5.9; 14.27,32-33, 
22.43 
5.3 


5.2 

10.7,12; 16.10 
8 . 10-11 
8.11 
13.5 

10.5; 14.12 
2.5; 14.23; A3.1 

3.15 

17.5,25-27 
21.18 
18.4 
9.36 

5.15 

9.72,74,83-84 
18.4 
8 7“8 

2ZA0, 43,55 
9.23-25 
14.7 
10 . 8-10 
12.6,9 
15.21 
12.11 
18.34 
23.41-43 
5.4-5 

14.12- 15,19,24 
5.8 

3.8; 10.13; 16.10 
8 12 

14.12- 13,15,19 
3.8; 10.14 

23.70 

13.10-12 


5.8 

18.38 


5.8 

14.12-13,15,19 
14.6-7,23; 16.10 
17.17 
3.15 
3.15 
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sharing . 

SHOW (transorset command) .. 

(SHOW . x) (edit command) .. 

SIDE (property name) . 

SIN[X;RAOIANSFLG] . 

skip-blip . 

skor .!!!!."!!! 

SKREAD[FILE ;REREADSTRING] ,!!!!!!!!!!”! 

slot (on pushdown list) . 

small integers . 

SMALLPf N ] . !.!!!!! 

SNI'MSG (prog. asst. command) .. 

SOME[SOMEX;SOMEFN1;S0MEFN2] . 

SORTf DATA;COMPAREFN] .. 

SP (in an asscmble Statement) . 

spaco . 

SPACES[N;FILE] SUBR . 

SPLCVARS (Compiler variable/parameter) 

spelling complction . 

spolling correction . 

spelling correction protocol . 

spelling corrector . 

spelling lists .. 

SPELLINGS1 (dwim variable/parameter) ... 
SPELL1NGS2 (dwim variable/parameter) 
SPELLINGS3 (dwim variable/parameter) ... 

(SPLITC x) (edit command) . 

spread Functions .. 

spreading arguments 

SQRT[N] . 

SQRT OF NEGATIVE VALUE (error message) 

square brackets . 

square brackets (inserted by prettyprint) 
SRCCOM ...; 

ST (response to Compiler question) . 

stack Position ... 

statistics . 

STKARG[N;POS] SUBR ..[]. 

STKARGSf POS ] ... *****''[ 

STKEVAl[ POS;FORM] SUBR . 

STKNAMETPOS] SUBR . 

STKNARGS[POS] SUBR . 

STKNTHf N;POS] SUBR . 

STKPOS(FN;N;POS] ... 

STKSCAN[VAR;POS] SUBR .. 

STOP (edit command) .... 

STOP (at the end of a file) 

STORAGE[FLG] .. 

storage allocation .’’’ 

STREQUAL[X;Y] .. 

STRF (Compiler variable/parameter) . 

string characters . 

string Functions . 

string pointers . 

string storage ... 

STRINGP[X] SUBR .'.' ^ 


3.15 
Al.10 
9.66 

22.45-46,56-57,59,61 
13.9 
12.11 
17.21-22 
14.17-18,28 
12 . 2 , 6 , 8,10 
3.1,5; 5.12; 13.1-2 
3.5; 13.2,4 
21.21; 22.34 
5.13 
6.10 

18.38,46 
3.2; 14.13 

14.19 

18.18,26,29 

17.11 
9.82,86 

17.5- 7 

17.2,10,20,26 

17.11- 14 

17.12- 14,18,24 

17.12- 14,18,23-24 
22.55; 17.12,14,16,24 

9.77 

4.2; 8.1 
4.2 
13.0 

13.8 
2.5 

14.38 

6.12 

18.2,4 

12.6- 7,9-10 
22.63 

12.8-9; 15.9 

12.9 

12.10- 11; 15.9 

12.7 

12.8 

12.7- 9 
12.6-7,9 

12.10 

9.71-72,76,83-85, 

15.20 

14.27-29,38 

10.16 

3.11 
10.5 

18.3-4,8 

3.1.10- 11; 10.11 
10.5-10 

3.1,10-11; 10.6,11 
10 . 11-12 
5.11; 10.5 
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Strings . 

STRPOS[X;Y;START;SKIP;ANCHOR;TAIL] . 

STRPOSL[A;STR; START;NEG] . 

structure modification commands (in editor) 

SUfU[X] . 

SUHLISfALST;EXPR;FLG] .. . . 

SUBPAIR[OLD;NEW;EXPR;FLG] ... 

SURR (function type) .. 

SURR* (function type) . 

SUBRPfFNJ SUBR . 

subrs . 

SUBSET[MAPX;MAPFN1;MAPFN2] . 

SÜBST[X;Y;Z] ... 

Substitution macros .. 

SUBSTRING[X;N;M] SUBR .. 

SUBSYS[ F ILE/FORK ; INCOMFILE ;OUTCOMFILE; 

ENTRYPOINTFLG] . 

SUN (clisp iterative Statement operator) 

(SURROUND @ IN ...) (edit command) . 

SVFLG (cotnpiler variable/parameter) . 

(SW n m) (edit command) . 

SY (prog. asst. command) ... 

symbolic file input .. 

symbolic file output ... 

SYMI.ST (edita command/parameter) . 

SYSBUr[FLG] SUBR . 

SYSFILES (system variable/parameter) . 

SYSHASIIARRAY (system variable/parameter) 

SYSINfFILE] SUBR . 

SYSLINKEDINS (system variable/parameter) 

SYSOUT[ FII E ] F.XPR . 

SYSOUTGAG (system variable/parameter) .... 
SYSPROPS (prettydef variable/parameter) 
SYSPROPS (system variable/parameter) ..... 

SYSTAT . 

T FIXED (typed by dwim) ... 

tab .... 

TAR[POS;MINSPACES;FILE] . 

tab (edita command/parameter) . 

tail of a list . 

TAILP[X;Y] . 

TANf X;RADIANSFLG] . 

TCOMPL[FILES] .. 

TCONCf PTR;X] . 

TECO (prog. asst. command) . 

teletype ... 


teletype initiated breaks 

TENEX[STR] . 

TENEX . 


TERPRIfFILE] SUBR . 

TEST (edit command) .... 
TEST (transorset command) 
TESTMODE[FLG] .. 
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3.10; 5.11; 14.11 

10.8- 9; 14.7 

10.9- 10 
9.36-60 

13.3 
6.6-7 
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4.3; 8.4-8 
4.3; 8.4-6 
8.1,3-5 
8.1 

11.4 

6.5.7 
18.16 

3.10; 10.6,11 

14.48; 21.18-21; 22.34 

23.19 
9.48 

18.3-4 

9.59-60 

22.34 

14.27-28 

14.29-38 

21.14 

14.21 

14.49 

7.5.7 

2.9; 14.26; 16.9 
18.26 

2.9; 14.21,26 
22.65 
14.33 
7.3 
21.24 

17.8 
14.13 
14.37 
21.12 

5.15 

5.15 

13.9 

14.44,46; 18.7-10,30-31 
6.2-3 

21.21; 22.34 
9.61; 14.1,4,10-11,16, 
20,23,31 
16.2-3 
21.24 

2.4,6,9; 3.2,6,15, 
13.13; 14.2-4,6-8,40, 
21.2,4,18-19,21-22, 
23.76; 20.6 

14.19 
9.79 

Al.11 
22.41 
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TESTMODEFLG (prog. asst. variable/parameter) 
TH! REIS (clisp iterative Statement operator) 

TIIRU (edit command) . 

TIIRU (in event specification) . 

TIME[TIMEX;TIMEN;TIMETYP] ML . 

time-slice (of history list) . 

TIMESCXl ;X 2 ; . . . ;Xn] SUBR* .. j 

TO (clisp iterative Statement operator) ... 

TO (edit command) . 

TO (in event spccification) . 

too fcw argumonts . 

too many arguments . 

TOO MANY FILES OPEN (error message) . 

TOP (as argument to advise) . 

top level value . 

trace[x] nl* . 

translation notes .!!!!!!!!!!! 

translations (in clisp) . 

TRANS0R[50URCEFILE] . .. 

transor .!!!!!!!!' 

transor sweep . 

TRANSORFNS . 

TRANSORFORM . . 

TRANSORSETC3 .. .. 

TRAPCOUNT[X] SUBR . 

TREAT AS CLISP ? (typed by dwim) . 

TREATASCLISPFLG (clisp variable/parameter) 
TREELST (printstructure variable/parameter) 

TREEPATHS[X;Y;TYPE;MU5T;AVOID;ONLY] . 

TREEPRINI[X;N] . 

true . .**»*,]* 

TRUSTING (DWIM mode) . 

TTY: (edit command) . 

TTY: (typed by editor) . 

type numbers . 

TYPE-AHEAD (prog. asst. command) . 

TYPLPf X;N] . 

TYPERECORD (record package) . 

U (value of ARGLIST) . . 

(U V W) (value of ARGLIST) . 

U-CASE[X] ... 

U.B.A. (error message) .. . 

U.B.A. breaks ..’ 

U.D.F. (error message) ..,... 

U.D.F. breaks .. 

U.D.F. T (typed by dwim) . 

U.D.F. T FIX? (typed by dwim) . 

Uß (break command) . 

UCASELST (prettydef variable/parameter) .... 

UNAOVISE[ X ] NL* .. 

UNADVISED (typed by System) . 

UNARYOP (property name) .” 

UNBLOCK (edit command) . 

unbound atom . 

unhoxed numbers . 

unboxed numbers (in arrays) . 

unboxing . | 
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21 . 1-2 
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13.7 

23.22,24 

9.54-57 

22.13 
4.3 
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16.8 
19.5,7 

5.1,3,9 

15.1,7,14,18-19,21 
Al.4 

23.30-33 
Al.3-4 
Al.1-17 
Al.14 
Al.4 
Al.4 
Al.2,8 
18.19 
23.66 
23.66 
20.8 
20.16 

20.9 

2.2; 5.4 

17.3,5,23; 23.5,66-67 
9.66,70-72; 15.19-20 
9.71 

10.14 
22.28-29 

10.15 
23.52 

8.6 

2.3; 8.6 

9.74; 14.43 

2.8; 16.1,4; 17.15 

15.10 

16.1- 2,4; 17.2,15 

15.11 
17.8 

17.8 

15.8 
14.43 
19.6,8-9 
15.24 
23.69 

9.79 

16.1; 17.14-18 
13.13 

3.8; 10.12 
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UNBREAK[X| NL* . 

UNBREAK0[FN; TAIL ] . .. 

(UNBREAKABLE) . .. 

uNBREAKiNf fn] ...!!!!’.*.*!!!!!!!!! 

UNBROKEN (typed by System) ...’ 

UNBROKEN (typed by advise) . 

UNBROKEN (typed by Compiler) . 

undefinod function ... 

UNDEFINED OR ILLEGAL GO (error message) . 

(UNDEFINED TAG) (Compiler error message) .. 

(UNDEFINED TAG) (error message) .. 

(UNDEFINED TAG, ASSEMBLE) (Compiler error message) 
(UNDEFINED TAG, LAP) (Compiler error message) ... 

UNDO (edit command) . 

UNDO (prog. asst. command) .!!«!!!!!.'!!!! 

undoing ... 

undoing (in editor) .!!!!.*!!!!!.*!!!!! 

undoing DWIM corrections . 

undoing out of order . ....... 

UNDOLISPX[ LINE] . 

UNDOLI5PX1 [ EVENT;FLG;DWIMCHANGES] * * .*!!.*!!!!!!!!!!.’ 

UNDOLST (editor variable/parameter) . 

UNDONE (typed by editor) . 

UNDONE (typed by system) .. 

UNDONLSETQl UNDOFORM; UNDOFN ] NL .!!!!!!!!!' 

UNDOSAVEf UNDOFORM ;HISTENTRY] . 

UNFIND (editor variable/parameter) . 

unionl x [ y i ’*!!!!!!!!!.'!!! * 

UNI ESS (clisp iterative Statement operator) . 

UNPACKt X;FLG] SUBR . 

unreading .^ 

UNSAVED (typed by dwim) . 

UNSAVED (typed by editor) . 

UNSAVEDtFf X;TYP] . 

uNSETrNAME] . 

UN1IL (clisp iterative Statement operator) . 

UNUSUAI CDR ARG LIST (error message) . 

UP (edit command) . 

UPDATEEILES[ J .!.!!!”!!!!.’.*,’ 

UPI IN DF LG (editor variable/parameter) . 

URFAD[rILE;FLG] SUBR . 

USL (prog. asst. command) ... 

USE-ARGS (property name) . 

(USED AS ARG TO NUMBER FN?) 

(Compiler error message) . 

(USED BLKAPPLY WHEN NOT APPLICABLE) 

(Compiler error message) . 

USF REXLCfI ISPXID;LISPXXMACROS;LISPXXUSERFN] _! 

USI RMACROS (editor variable/parameter) . 

USI RMACROS (prettydef command) .. 

USERNAMFfA] . 

USFRNAME (prog. asst. variable/parameter) .!! 

USERNAME (system variable/parameter) . 

USLRNAMI LST (prog. asst. variable/parameter) .... 
USERNUMBER[A] .. 
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15.22 
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16.1; 17.14-18 
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18.50 
5.7 
18.50 
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22.13.22- 23,43,58,61, 
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22.5,38,55,62 

9.10.36.78- 79; 22.62 
22.23; 23.63 
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22.58 

22.59 

9.72.78- 79,84; 22.62 
9.78 

22.22.59 

22.59 
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72-73,76,84 
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23.22 

10.2-3 
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17.17-18 

9.85 

8.8; 17.17-18 
22.43,56 

23.22 
16.9 

9.12,15-16,25,43 

14.45,50-51 

9.25,28,44 

14.11- 12,15,24 
22.14-15,17,22 
22.45 
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18.51 

22.49 

9.70; 14.35 
9.70,80; 14.35 

21.23 
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21.24 
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USF.RSYMS (edita commnnd/parameter) .,. 21.14 

USERWORDS (dwim variable/parameter) . 17.13-14,23,27-28 

USERWORDS (system variable/parameter) . 9.85-87 

USING (record package) .. 23.56 

VAG[X] SUBR ... 13.13-14 

VALUE (property namo) .. 5.9; 22.43,55-56 

valuc cell . 2.3; 5.1,9; 12.1, 

.-. 16.1 

value of a break .. 15.6; 16.2 

valuo of a property .. 7.1 

VALUEOF[X] NL* ... 21^20; 22.33,46,54 

variable bindings .. 2.8; 11.5-7; 12.1-6 

VARIABLES! POS] . 12 9- 15 10 

VARPRINI[DONELST;TREELST] . 20 9* 

VARS[EN ;EXPRFLG] . 20.10 

VARS (prettydcf command) . 14.34 

Version numbers . 14 2 

VIRGINFNffN;FLG] . 15^23 

WHEN (clisp iterative Statement operator) . 23.22 

WHFRE (clisp iterative Statement operator) . 23.29 

WIIERE IS[ X ] . 14.48 

WHILE (clisp iterative Statement operator) . 23.22 

WIDEPAPERfFLG] . 14.39 

WITH (in REPLACE command) (in editor) . 9.42 

WITH (in SURROUND command) (in editor) .. 9.48 

WORLD (ns argnment to RELINK) .. 18.25 

WRITEFILEf X;FILE;DAIEFLG] . 14.29 

(XTR , O) (edit command) . 9.45 

YESFNS (printstructure variable/parameter) . 20.3 

ZEROP[ X ] . 13,4 

0 (edit command) . 9.4-5,17 

^ (carringe-return) . 2.5 

~ (in pattern match Compiler) ... 23.40 

~ (clisp operator) . 23.14 

! (in pattern match Compiler) ... 23.41-43 

! (uso with <,> in clisp) . 23.16 

!! (use with < ( > in clisp) . 23.16 

!0 (edit command) . 9.18 

!E (prog. asst. command) . 22.31 

!E (edit command) . 22.31,61 

IEVAL (break command) . 15.7 

!F (prog. asst. command) . 22.31 

! F (edit command) .22.31,61 

!GO (break command) . 15.7,16 

!N (prog. asst. command) . 22.31 

!N (edit command) . 22.31,61 

!NX (edit command) . 9.19-20 

!OK (break command) . 15.7,16 

IUNDO (edit command) . 9.78 

!VALUE (break variable/parameter) . 15.7,16 

IVALUE (with advising) . 19.2,4 

" *... 3.2^10; 14.11-14,19 

# (followed by a number) . 3.8; 10.13; 13.13, 

.. 14.19 

##[COMS] NL* . 9.29,63 

## (typed by system) .'.. 2.4; 14.10,23,25 

Jl Jt / ^ THrrnr ni-ni • n r- , ' 


## (in INSERT, REPLACE, and CHANGE commands) .... 9.43 
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#0 


*° ( uso in history commands) .. 

number ► in Pattern match Compiler) 
#kPARS (prettyclef variable/parameter) .... 

^SPELLINGSl (dwim variable/parameter) .... 
#SPELLING5£ (dwim variable/parameter) . 
#SPELLINGS3 (dwim variable/parametor) ....’ 

I Simone S^ 09 - asst * variable/Parameter) 
#USERW0RD5 (dwim variable/parameter) ... 

$ (a Vt-mode) .. 


S (a11-mode) (in odit pattern) . 

S (n11-mode) (prog. asst. command) ...., *, 
S (alt-mode) (in clisp) 

$ (alt-mode) (in spelling correctiön) '!!! 
S (alt-mode, in R command) (in editor) ... 

S (dollar) (edita command/parameter) . 

$ (donar) (in pattern match Compiler) ... 

SS (two alt-modes) (in edit pattern) . 

SSVAL (use in iterative Statement ln clisp) 

S1 (in pattern match Compiler) . 

SlJUiS (alt-modcBllFS) (prog. asst. commandi 
SC (alt-modeC) (edita command/parameter) . 
SN (in pattern match Compiler) 

$Q (a1t-modeQ) (edita command/parameter) . 
SW (nlt-modeW) (edita command/parameter) 

% (escape character) .. 


% (use in commonts) . 

%% (use in commonts) . 

& (in edit pattern) . 

& (in pattern match Compiler) 

& (typed by editor) . 

& (typed by System). 


1 (edita command/parameter) 

' (in a lap Statement) . 

' (in pattern match Compiler) 

1 (clisp operator) . 

( . 

() . 

) ... 


* (in a lap Statement) .!!!.'!.*! 

* (in an assemble Statement) . 

* (in pattern match Compiler) .’ ‘ ‘ " 

* (typed by editor) . 

* ( ir > MßD command) (in editor) 

* (uso in commonts) .... , ' 1 

* (use in prettydef command) . 

*** (in intorscopo output) .!!..'!!!! 

***** (in Compiler error messages) ......... 

*****^J 1 EN11°N USER -- (typed by System) ... 

**COMHrNT** (typed by editor) .. 

**COHMENT** (typed by System) . 

**£n™rrII*/ LG (P rett y dof variable/parameter) 
**CUTOFF* * (typed by PRINTSTRUCTURE) . 

* EDITOR** (in backtrace) 
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23.41 
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21.16 
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23.39 
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17.16 
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23.39 
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3.7 
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18.39 

23.40 
9.2 
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14.30,39 
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18.49 

22.65 

15.9 

9.60 

14.31 
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**TOP** (in backtrace) .. 

*ANY* (in edit pattern) 

»FORM* ... 

, (editn command/parameter) . 

-- (in edit pattern) . 

-- (in pattern match Compiler) . 

-- (typcd by system) .. 

-> (break command) ... 

-> (in pattern match Compiler) . 

-> (typed by dwim) ... 

-> (typed by editor) .. 

-n (n a number, edit command) . 

(-n el ... em) (n a number, edit command) 


. (edita command/parameter) 

. (in pattern match Compiler) 

• (in a Floating point number) 

. notntion .,. 

.. (edit command) .. 

... (in edit pattern) .. 

... (prog. asst. command) . 

... (typed by dwim) . 

... (typed by editor) . 

... (typed by System) . 

/ (edita command/parameter) ... 

/ Functions . 

/RPLNODE[X;A;D] . 

(2ND . @) (edit command) . 

(3RD . @) (edit command) . 

7 (instead oF ') . 

8 (instcad oF leFt parenthesis) 

9 (instead oF right parenthesis) 
: (edita command/parameter) ... 

: (typed by System) . 

: (clisp operntor) . 

(: el ... em) (edit command) 

; (edita command/parameter) ... 

(; . x) (edit command) . 

<,> (uso in clisp) . 

= (break command) . 

= (edita command/parameter) ... 

= (in a lap Statement) . 

= (in pattern match Compiler) 

= (typed by dwim) . 

= (typed by editor) . 

= (in event address) . 

== (in edit pattern) . 

== (in pattern match Compiler) 

=> (in pattern match Compiler) 

= l£ (typed by editor) . 

=FDITF (typed by editor) . 

=EDITP (typed by editor) . 

=EDITV (typed by editor) . 

? (edit command) . 

? (edita command/parameter) ... 

? (typed by dwim) . 

? (typed by editor) . 
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9.3,17 
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9.2,60 

21.13 
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? (typod by System) .... 

?= (break command) . 

?? (prog. asst. command) . 

0 (break command) ... 

@ (editn command/parameter) .. 

@ (in a lap Statement) . 

@ (in pattern match Compiler) ....... 

@ (in event specification) . 

@ (locatlon specification) (in editor) 

(01 TURU 02) (edit command) . 

(01 THRU) (edit command) . 

(01 TO 02) (edit command) . 

(01 TO) (edit command) . 

@0 (in event specification) . 

[ . 

[,] (inserted by prettyprint) . 

\ (edit command) .. 

\ (typed by systcm) . 

\ (in event address) . 

(\ atom) (edit command) . 

\P (edit command) . 

3 ... 

t (break command) . 

t (edit command) . 

t (edita command/parameter) . 

t (use in comments) . 

♦- (edit command) 

*' (in pattern match Compiler) . 

*- (typed by System) .. 

*- (in event address) . 

*• operator (in clisp) . 

(*• pattern) (edit command) .. 

(edit command) .... 
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14.41 
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